open (1,file=prefix(:ilen(prefix))//'.inp',status='old')
C Get parameter filenames and open the parameter files.
call mygetenv('BONDPAR',bondname)
open (1,file=prefix(:ilen(prefix))//'.inp',status='old')
C Get parameter filenames and open the parameter files.
call mygetenv('BONDPAR',bondname)
call mygetenv('SIDEP',sidepname)
open (isidep1,file=sidepname,status="old")
call mygetenv('SIDEP',sidepname)
open (isidep1,file=sidepname,status="old")