Use two VDISP at the same time

[liq001]

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

 

[liq001]

I mean non of them being called