Symbol Description Uses
chardum 6



File Line number Procedure Code
./model/src/cg2d_nsa.F 485 ADSTORE
      subroutine ADSTORE(chardum,int1,idow,int2,int3,icount)
./model/src/cg2d_nsa.F 492 ADSTORE
      character*(*) chardum
./model/src/cg2d_nsa.F 506 ADSTORE
      print *, 'adstore: ', chardum, int1, idow, int2, int3, icount
./model/src/cg2d_nsa.F 518 ADRESTO
      subroutine ADRESTO(chardum,int1,idow,int2,int3,icount)
./model/src/cg2d_nsa.F 525 ADRESTO
      character*(*) chardum
./model/src/cg2d_nsa.F 540 ADRESTO
      print *, 'adresto: ', chardum, int1, idow, int2, int3, icount