open (isidep1,file=sidepname,status="old")
call mygetenv('LIPTRANPAR',liptranname)
open (iliptranpar,file=liptranname,status='old',action='read')
open (isidep1,file=sidepname,status="old")
call mygetenv('LIPTRANPAR',liptranname)
open (iliptranpar,file=liptranname,status='old',action='read')