could be but for example: subroutine corcom in corman.src in the begining gives
write(*,*) islct,jslct,rwork ! my modification
stop !
CALL CORMAN('MAIN', X, Y, Z, WMAIN, XCOMP, YCOMP, ZCOMP,
& WCOMP, NATIML, HEAP(ISLCT), HEAP(JSLCT), TYPE,
& RESID, RES, IBASE, SEGID, NICTOT, NSGIML, AMASS,
& CG, NTRANS, IMNAME, IMTRNS, XUCELL,
& HEAP(RWORK))
-31415927 -31415927 -31415927
is it correct? can heap use negative indexes? or it is just printed wrong due to the different integer kind?
thanks.