OV-GSO-DC / dustem-wrapper_idl

Commit ae5b5906f80b43ab6800149949f273995da28b38

Authored by Jean-Philippe Bernard
1 parent f27e8037
Exists in master

fixed

Showing 1 changed file with 21 additions and 0 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_set_up_fortran.pro
  Diff comments   View file @ae5b590
... ... @@ -20,11 +20,22 @@ IF keyword_set(random_name) THEN BEGIN
20 20 dustem_user='dustem_user'+user_number
21 21 ENDIF
22 22  
  23 +;==== this is where everything will happen
23 24 tmp_dir='/tmp/'+getenv('USER')+'/'
24 25  
25 26 dustem_dat=tmp_dir+dustem_user+'/'
26 27 dustem_res=tmp_dir+dustem_user+'/'
27 28  
  29 +
  30 +;0/ save current DM_constants.f90 and dustem executable
  31 +str='cp '+!DUSTEM_SOFT_DIR+'/src/'+'DM_constants.f90'+' '+!DUSTEM_SOFT_DIR+'/src/'+'DM_constants_saved_by_idl.f90'
  32 +message,'Issuing '+str,/cont
  33 +spawn,str
  34 +str='cp '+!DUSTEM_SOFT_DIR+'/src/'+'dustem'+' '+!DUSTEM_SOFT_DIR+'/src/'+'dustem_saved_by_idl'
  35 +message,'Issuing '+str,/cont
  36 +spawn,str
  37 +
  38 +
28 39 ;1/
29 40 ;read DM_constants.f90
30 41 fortran_file_name=!DUSTEM_SOFT_DIR+'/src/'+'DM_constants.f90'
... ... @@ -127,6 +138,16 @@ defsysv,'!dustem_f90_exec',dustem_f90_name
127 138 defsysv,'!DUSTEM_DAT',dustem_dat
128 139 defsysv,'!DUSTEM_RES',dustem_res
129 140  
  141 +;restore original files in the fortran
  142 +;0/ save current DM_constants.f90 and dustem executable
  143 +str='cp '+!DUSTEM_SOFT_DIR+'/src/'+'DM_constants_saved_by_idl.f90'+' '+!DUSTEM_SOFT_DIR+'/src/'+'DM_constants.f90'
  144 +message,'Issuing '+str,/cont
  145 +spawn,str
  146 +str='cp '+!DUSTEM_SOFT_DIR+'/src/'+'dustem_saved_by_idl'+' '+!DUSTEM_SOFT_DIR+'/src/'+'dustem'
  147 +message,'Issuing '+str,/cont
  148 +spawn,str
  149 +
  150 +
130 151 ;stop
131 152  
132 153 RETURN,dustem_user
... ...