编写gforce的subroutine时调用TDISP报错的问题

reno86525885

利用fortran编写一个简单的gforce的subroutine 但是编译完成后仿真都报错，问题应该出在TDISP函数上，但是不知道哪里有问题，求情明白人儿指点，报错内容见最后，谢谢
   
      SUBROUTINE GFOSUB(ID, TIME, PAR, NPAR, DFLAG,
       &                  IFLAG, RESULT)
      INTEGER                             ID
      DOUBLE PRECISION                    TIME
      DOUBLE PRECISION                    PAR( * )
      INTEGER                             NPAR
      LOGICAL                             DFLAG
      LOGICAL                             IFLAG
      DOUBLE PRECISION                    RESULT(6)

      DOUBLE PRECISION IPAR(3), rel, T(3)
      INTEGER NSTATES, IM, JM
      LOGICAL ERRFLG

      IM=PAR(1)
      JM=PAR(2)
                                               
      IPAR(1) = JM
      IPAR(2) = IM
      IPAR(3) = IM
      
      CALL SYSARY('TDISP', IPAR, 3, T, NSTATES, ERRFLG)
      CALL ERRMES(ERRFLG, 'Error calling SYSARY for TDISP',ID, 'STOP')

      rel=sqrt(T(1)**2+T(2)**2)
      
      
      RESULT(1) = 3*rel                                
      RESULT(2) = 4*rel
      RESULT(3) =0
      RESULT(4) =0
      RESULT(5) =0
      RESULT(6) =0
              
      RETURN
      END


错误如下
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DX in the FUNCTION = statement refers to MARKER         0 which
   has not been defined in the data set.
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DX in the FUNCTION = statement refers to MARKER         1074266112 which
   has not been defined in the data set.
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DY in the FUNCTION = statement refers to MARKER         0 which
   has not been defined in the data set.
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DY in the FUNCTION = statement refers to MARKER         1074266112 which
   has not been defined in the data set.
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DZ in the FUNCTION = statement refers to MARKER         0 which
   has not been defined in the data set.
ERROR:      User function for GFORCE model_1.GFORCE_1 has been incorrectly specified.
   Function DZ in the FUNCTION = statement refers to MARKER         1074266112 which
   has not been defined in the data set.
ERROR:      Errors found in call to SYSARY.
ERROR:      Error calling SYSARY for TDISP
   ID = 1
ERROR:   Abnormal termination encountered in Solver.