Changeset 315 in PSPA

Timestamp:

Feb 7, 2013, 8:25:16 AM (11 years ago)

Author:

lemeur

Message:

fichier parin.input0

Location:

parmelaPSPA/trunk

Files:

• input.f (modified) (4 diffs)
• parmelamainv503.f (modified) (1 diff)

parmelaPSPA/trunk/input.f

@@ -1 @@
-      subroutine input
+      subroutine input(lonnom, work_path)
 c-------last modification date 03/27/95
 c          generalized input routine
@@ -68 +68 @@
       include 'ucom.h'
 c
+      character*256 nomfic
+      character*256  work_path
+      character*256  nomf
+      integer  lonnom
+c
       parameter (igun=31)
       common/cf/fmax
@@ -100 +105 @@
      * .4987,.4990,.4993,.4995,.4997,.49975,.4998,.49985,.4999,.49995,
      * .5/
-
+      print *, ' PARMELA ENTREE INPUT '
       do  1 i=1,imaa  ! mcd
       zcath(i)=0.     ! mcd
@@ -125 +130 @@
 c
       if(ntype.eq.0)then
-         open(unit=3,file='parin.input0',status='old',err=10)
+         nomf = nomfic(work_path(1:lonnom),'parin.input0')
+         print *, ' parmela file : fichier parin : ', nomf
+
+         open(unit=3,file=nomf,status='old',err=10)
          npoints=vv(2)+1
          cor(5,1)=0.

parmelaPSPA/trunk/parmelamainv503.f

@@ -596 +596 @@
 c---after input:  vv parameters depend on input subroutine
  1200 continue
-      call input
+      call input(lonnom, work_path)
       ngood=npoints
       do 8006 i=1,ngood