cost Subroutine

subroutine cost(me, x, f)

Arguments

Type IntentOptional Attributes Name
class(pikaia_class), intent(inout) :: me
real(kind=R8), intent(in), dimension(:) :: x
real(kind=R8), intent(out) :: f

Calls

proc~~cost~~CallsGraph proc~cost cost proc~abs_diff_sk_ku abs_diff_sk_ku proc~cost->proc~abs_diff_sk_ku proc~sk_ku sk_ku proc~abs_diff_sk_ku->proc~sk_ku proc~add_tang add_tang proc~sk_ku->proc~add_tang proc~tang tang proc~sk_ku->proc~tang proc~add_tang->proc~tang

Source Code

   subroutine cost(me, x, f)
   implicit none
   class(pikaia_class), intent(inout)               :: me
   real(kind=R8)      , intent(in   ), dimension(:) :: x
   real(kind=R8)      , intent(  out)               :: f

      f = 1./(1. + abs_diff_sk_ku(chrom = x(1:2)))

   return
   endsubroutine cost