You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
581 B
Fortran
20 lines
581 B
Fortran
MODULE JACOBMOD
|
|
IMPLICIT NONE
|
|
PRIVATE
|
|
PUBLIC :: JACOB
|
|
INTERFACE JACOB
|
|
MODULE PROCEDURE JACOB
|
|
END INTERFACE
|
|
CONTAINS
|
|
FUNCTION JACOB ( xd,xc) RESULT (value1)
|
|
IMPLICIT NONE
|
|
DOUBLE PRECISION, DIMENSION(:),INTENT(in) :: xd ,xc
|
|
DOUBLE PRECISION :: value1
|
|
! default
|
|
value1 = ABS(PRODUCT(xd))
|
|
! Other possibilities given below:
|
|
! value1 = 1.d0
|
|
! value1 = ABS(PRODUCT(xd)*PRODUCT(xc))
|
|
RETURN
|
|
END FUNCTION JACOB
|
|
END MODULE JACOBMOD |