| 1 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
|---|
| 2 | c system dependant * |
|---|
| 3 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
|---|
| 4 | subroutine ouvrir |
|---|
| 5 | c |
|---|
| 6 | include 'ucom.h' |
|---|
| 7 | include 'debug.h' |
|---|
| 8 | include 'flagcom.h' |
|---|
| 9 | c |
|---|
| 10 | c------------------------- open -------------------------------------- |
|---|
| 11 | c Partie transferee dans le main 14/09/00 |
|---|
| 12 | c open(unit=nin,file='parmin',status='old', |
|---|
| 13 | c * access='sequential',form='formatted') |
|---|
| 14 | c idebug=0 |
|---|
| 15 | c if(idebug.eq.0) then |
|---|
| 16 | c open(unit=nnout,status='scratch', |
|---|
| 17 | c * access='sequential',form='formatted') |
|---|
| 18 | c else |
|---|
| 19 | c open(unit=nnout,file='parmint',status='new', |
|---|
| 20 | c * access='sequential',form='formatted') |
|---|
| 21 | c endif |
|---|
| 22 | c----------------------------------------------------------------------- |
|---|
| 23 | c open modifie le 14/11/2007 pour utilisation sous Linux |
|---|
| 24 | c declaration des gros fichiers sur le disque tmp de la machine et non du |
|---|
| 25 | c cluster |
|---|
| 26 | c |
|---|
| 27 | open(unit=nav,access='sequential', |
|---|
| 28 | * form='formatted',status='scratch') |
|---|
| 29 | open(unit=ndes1,file='parmdesz',form='formatted', |
|---|
| 30 | * status='unknown') |
|---|
| 31 | open(unit=ndes2,file='/tmp/parmdest',form='unformatted', |
|---|
| 32 | * status='unknown') |
|---|
| 33 | open(unit=nemit,access='sequential', |
|---|
| 34 | * form='formatted',status='scratch') |
|---|
| 35 | open(unit=ndiag,form='formatted',status='scratch') |
|---|
| 36 | open(unit=nsemit,file='/tmp/parmemit2',form='unformatted', |
|---|
| 37 | * status='unknown') |
|---|
| 38 | open(unit=nsnap,file='/tmp/parmsnap',form='unformatted', |
|---|
| 39 | * status='unknown') |
|---|
| 40 | c-------------------------------------------------------------------------- |
|---|
| 41 | return |
|---|
| 42 | end |
|---|
| 43 | c********************************************************************* |
|---|
| 44 | c vax version |
|---|
| 45 | subroutine orest1(i) |
|---|
| 46 | c |
|---|
| 47 | include 'ucom.h' |
|---|
| 48 | c |
|---|
| 49 | character*1 kfic1 |
|---|
| 50 | character*36 bmnom1 |
|---|
| 51 | write(kfic1,8337)i |
|---|
| 52 | 8337 format(i1) |
|---|
| 53 | bmnom1='savecor'//kfic1 |
|---|
| 54 | open (unit=nsav,file=bmnom1,access='sequential', |
|---|
| 55 | * form='unformatted',status='old') |
|---|
| 56 | return |
|---|
| 57 | end |
|---|
| 58 | c********************************************************************* |
|---|
| 59 | c vax version |
|---|
| 60 | subroutine orest2 |
|---|
| 61 | c |
|---|
| 62 | include 'ucom.h' |
|---|
| 63 | c |
|---|
| 64 | open (unit=nsav,file='/tmp/savecor',access='sequential', |
|---|
| 65 | * form='unformatted',status='old') |
|---|
| 66 | return |
|---|
| 67 | end |
|---|
| 68 | c********************************************************************* |
|---|
| 69 | c vax version |
|---|
| 70 | subroutine osave1(i) |
|---|
| 71 | c |
|---|
| 72 | include 'ucom.h' |
|---|
| 73 | c |
|---|
| 74 | character*1 kfic2 |
|---|
| 75 | character*36 bmnom2 |
|---|
| 76 | write(kfic2,8338)i |
|---|
| 77 | 8338 format(i1) |
|---|
| 78 | bmnom2='savecor'//kfic2 |
|---|
| 79 | open (unit=nsav,file='/tmp/bmnom2',access='sequential', |
|---|
| 80 | * form='unformatted',status='new') |
|---|
| 81 | return |
|---|
| 82 | end |
|---|
| 83 | c********************************************************************* |
|---|
| 84 | c vax version |
|---|
| 85 | subroutine inscgrid(fexist) !02/92 |
|---|
| 86 | logical fexist |
|---|
| 87 | inquire(file='scgrid',exist=fexist) |
|---|
| 88 | return |
|---|
| 89 | end |
|---|
| 90 | c********************************************************************* |
|---|
| 91 | c vax version |
|---|
| 92 | c file back pour le back bombardment |
|---|
| 93 | subroutine opeback(iope) |
|---|
| 94 | c |
|---|
| 95 | include 'ucom.h' |
|---|
| 96 | c |
|---|
| 97 | if(iope.eq.1) then |
|---|
| 98 | open(unit=nback,file='parmback',status='new',form='unformatted') |
|---|
| 99 | open(unit=nback1,file='parmback1',status='new',form='unformatted') |
|---|
| 100 | else |
|---|
| 101 | open(unit=nback1,file='parmback1',status='new',form='unformatted') |
|---|
| 102 | endif |
|---|
| 103 | return |
|---|
| 104 | end |
|---|
| 105 | c********************************************************************* |
|---|
| 106 | c vax version |
|---|
| 107 | subroutine appendparm |
|---|
| 108 | c |
|---|
| 109 | include 'ucom.h' |
|---|
| 110 | c |
|---|
| 111 | character*1 k(80) |
|---|
| 112 | integer bmout |
|---|
| 113 | c--------------------------------------------------------------------- |
|---|
| 114 | bmout=90 |
|---|
| 115 | open(unit=bmout,file='parmout',access='sequential', |
|---|
| 116 | * status='unknown',form='formatted') |
|---|
| 117 | rewind(nnout) |
|---|
| 118 | rewind(nemit) |
|---|
| 119 | rewind(nav) |
|---|
| 120 | rewind(ndiag) |
|---|
| 121 | 100 format(80a1) |
|---|
| 122 | 10 continue |
|---|
| 123 | read(nnout,100,end=20) (k(i),i=1,80) |
|---|
| 124 | write(bmout,100) (k(i),i=1,80) |
|---|
| 125 | go to 10 |
|---|
| 126 | 20 continue |
|---|
| 127 | read(nemit,100,end=30) (k(i),i=1,80) |
|---|
| 128 | write(bmout,100) (k(i),i=1,80) |
|---|
| 129 | go to 20 |
|---|
| 130 | 30 continue |
|---|
| 131 | read(nav,100,end=40) (k(i),i=1,80) |
|---|
| 132 | write(bmout,100) (k(i),i=1,80) |
|---|
| 133 | go to 30 |
|---|
| 134 | 40 continue |
|---|
| 135 | read(ndiag,100,end=50) (k(i),i=1,80) |
|---|
| 136 | write(bmout,100) (k(i),i=1,80) |
|---|
| 137 | go to 40 |
|---|
| 138 | 50 continue |
|---|
| 139 | c----------------------------------------------------------------------- |
|---|
| 140 | end |
|---|
| 141 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
|---|
| 142 | |
|---|
![(please configure the [header_logo] section in trac.ini)](/PSPA/chrome/site/pspa.gif)
