open (isidep1,file=sidepname,status="old")
call mygetenv('LIPTRANPAR',liptranname)
open (iliptranpar,file=liptranname,status='old',action='read')
+ call mygetenv('TUBEPAR',tubename)
+ open (itube,file=tubename,status='old')
+
#ifndef OLDSCP
C
C 8/9/01 In the newest version SCp interaction constants are read from a file