Eng-Tips is the largest forum for Engineering Professionals on the Internet.

Members share and learn making Eng-Tips Forums the best source of engineering information on the Internet!

  • Congratulations JStephen on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Use two VDISP at the same time

Status
Not open for further replies.

liq001

Aerospace
Joined
Feb 25, 2022
Messages
56
Location
US
Hi everyone,

I have two vdisp subroutines, I would like to run them together and I use the code below, but why either one of the subroutine is being called?

include 'vaba_param.inc'

dimension jDof(nDof), jNodeUid(nblock),
1 amp(nblock), coordNp(nCoord, nblock),
2 u(nDof,nblock), v(nDof,nblock), a(nDof,nblock),
3 rf(nDof,nblock), rmass(nblock), rotaryI(3,3,nblock),
4 rval(nDof,nblock)
c
character*80 CBNAME

c
if ( CBNAME .EQ. 'BC1' ) then

CALL VDISP_BC1(
! Read only -
1 nblock, nDof, nCoord, kstep, kinc,
2 stepTime, totalTime, dtNext, dt,
3 cbname, jBCType, jDof, jNodeUid, amp,
4 coordNp, u, v, a, rf, rmass, rotaryI,
! Write only -
5 rval )

else if ( CBNAME .EQ. 'BC2' ) then

CALL VDISP_BC2(
! Read only -
1 nblock, nDof, nCoord, kstep, kinc,
2 stepTime, totalTime, dtNext, dt,
3 cbname, jBCType, jDof, jNodeUid, amp,
4 coordNp, u, v, a, rf, rmass, rotaryI,
! Write only -
5 rval )

end if

return
end


Thanks
Lee
 
I mean non of them being called
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top