Welcome to Adams/Solver Subroutines - Kxcad.net

CALL NMODES(FBDYID,NQ,ERRFLG)
STRING = 'Cannot get number of modes'
CALL ERRMES(ERRFLG, STRING, ID, 'STOP' )
IF (NQ .GT. MAXQ) THEN
STRING = 'Too many modes, increase MAXQ in varsub'
CALL ERRMES(.TRUE., STRING, ID, 'STOP' )
ENDIF
C
STRING = 'Cannot get frequencies of modes'
CALL MODINF (FBDYID, OMODE, FREQ, ERRFLG)
CALL ERRMES(ERRFLG, STRING, ID, 'STOP' )
C
IPAR(1) = FBDYID
VALUE = 0.0
C
FNCNAM = 'Q'
CALL SYSARY(FNCNAM, IPAR, NARG, Q, NQ, ERRFLG)
STRING = 'Error calling SYSARY for Q.'
CALL ERRMES(ERRFLG, STRING, ID, 'STOP' )
DO 20 I=1,NQ
IF (FREQ(I) .LT. MAXFRQ) VALUE = VALUE + C1*Q(I)
20 CONTINUE
C
FNCNAM = 'QDOT'
CALL SYSARY(FNCNAM, IPAR, NARG, Q, NQ, ERRFLG)
STRING = 'Error calling SYSARY for QDOT.'
CALL ERRMES(ERRFLG, STRING, ID, 'STOP' )
DO 30 I=1,NQ
IF (FREQ(I) .LT. MAXFRQ) VALUE = VALUE + C2*Q(I)
30 CONTINUE
C
FNCNAM = 'QDDOT'
CALL SYSARY(FNCNAM, IPAR, NARG, Q, NQ, ERRFLG)
STRING = 'Error calling SYSARY for QDDOT.'
CALL ERRMES(ERRFLG, STRING, ID, 'STOP' )
DO 40 I=1,NQ
IF (FREQ(I) .LT. MAXFRQ) VALUE = VALUE + C3*Q(I)
40 CONTINUE
C
RETURN
END
Welcome to Adams/Solver Subroutines
For other examples that use the SYSARY data access subroutine, see the evaluation subroutines
VFOSUB and VTOSUB.
SYSFNC
105