Fortran example for GETFINISHFILE

 

C---- SUB. AXIAL_FORCE : AXIAL(TRA,ROT)

      SUBROUTINE AXIAL_FORCE

     &          (TIME,UPAR,NPAR,JFLAG,IFLAG,RESULT)

C---- TO EXPORT * SUBROUTINE

      !DEC$ ATTRIBUTES DLLEXPORT,C::AXIAL_FORCE

 

C---- INCLUDE SYSTEM CALL

      INCLUDE 'SYSCAL.F'

 

C---- DEFINE VARIABLES

C Parameter Information

C     time: Simulation time of RD/Solver

C     upar: Parameters defined by user

C     npar: Number of user parameters

C     jflag: When RD/Solver evaluates a Jacobian, the flag is true.

C     iflag: When RD/Solver initializes arrays, the flag is true.

C     result: Returned value

 

      DOUBLE PRECISION TIME, UPAR(*)

      INTEGER NPAR

      LOGICAL JFLAG, IFLAG

      DOUBLE PRECISION RESULT[REFERENCE]

 

C---- USER STATEMENT

      integer flagEnd

      integer iunitFile

 

C---- LOCAL VARIABLE DEFINITIONS

      INTEGER MKID(3), ID

      DOUBLE PRECISION DISP, VALUE(1)

      LOGICAL ERRFLG

 

C---- ASSIGN IMPACT PARAMETERS

      MKID(1) = INT(UPAR(1))

      MKID(2) = INT(UPAR(2))

      MKID(3) = INT(UPAR(3))

      ID = INT(UPAR(4))

 

C---- CALL AUXILIARY SUBROUTINES FOR CALCULATIONS

      CALL SYSFNC('DX', MKID, 3, DISP, ERRFLG)

      CALL RD_AKISPL(DISP, 0, ID, 0, VALUE(1), ERRFLG)

 

C---- ASSIGN THE RETURNED VALUE

      RESULT = VALUE(1)

 

C---- OPEN FILE

      iunitFile = 901

      IF (IFLAG)

     &   OPEN(unit=iunitFile, FILE='test_result.txt', IOSTAT=ivar)

 

C---- write in FILE

      write(iunitFile,*) 'Result =', RESULT

 

C---- CLOSE FILE

      call GETFINISHFLAG(flagEnd)

      if (flagEnd) then

         close(iunitFile)

      endif

      RETURN

      END