Changeset 80 in PSPA for parmelaPSPA/trunk/cellfeld.f

Timestamp:

Nov 15, 2012, 12:36:13 PM (12 years ago)

Author:

lemeur

Message:

prise en compte d'un path pour les fichiers

File:

• parmelaPSPA/trunk/cellfeld.f (modified) (3 diffs)

parmelaPSPA/trunk/cellfeld.f

@@ -1 @@
-      subroutine cellfeld(filesuper,nc,ne,ns)
+      subroutine cellfeld(fileelec,nc,ne,ns)
 c----------------------------------------------------------------------
+c modifie glm : suppression de filesuper (var_char.h) remplace par fileelec
 c
       include 'param_sz.h'
@@ -7 +8 @@
       include 'misccom.h'
       include 'syscom.h'
-      include 'var_char.h'
+c      include 'var_char.h'
       include 'ucom.h'
 c
@@ -15 +16 @@
 c--------------------------------------------------------------------------
 c*
+      character*256 fileelec
       data rcurflag/.true./
       itest=0
       iorsay=0
 c      open (unit=nfld,file=filesuper//'.sffld',status='old')
-      nlast = index(filesuper, ' ')
-      if (nlast .eq. 0) nlast = len(filesuper) + 1
-      open (unit=nfld,file=filesuper(1:nlast-1)//'.sffld',
+      nlast = index(fileelec, ' ')
+      print *, ' cellfeld recoit : ', fileelec
+      if (nlast .eq. 0) nlast = len(fileelec) + 1
+      open (unit=nfld,file=fileelec(1:nlast-1)//'.sffld',
      1  status='old')
       do 100 i=nc,ne,ns