Inclusion of DEBUg command in domain input files

[wklausler]

Dear parFEAP users,

while working with parFEAP, I found a small change to be useful: pass a DEBUg command input in the main input file (after the mesh input) into each domain input file.

The modification works when inserted in the following code segment of subroutine uoutdom, in file pmacr7.F.

Code: [Select]


c       Write final data

        write(ios,2000) 'END DOMAIN'

        if(debug) then
          write(ios,*)                             ! New
          write(ios,'(A,I1)') 'DEBUg,,',ndebug     ! New

          write(  *,*) ' End   EQNS numbers',etime(tary)
          write(iow,*) ' End   EQNS numbers',etime(tary)
        endif

c       Output lists initial conditions


Although this is only tested in FEAP 8.4, it should be easily applicable to other versions.

Best regards,
wklausler