##// END OF EJS Templates
schain
RSS
new files to generate right path to bfmodel
rflores -
r1574:245450ed306e
parent child
Show More
Side by Side Unified
Context file:
r1574:245450ed306e Loading diff...:
Show file before | Show file after | Hide comments
@@ -0,0 +1,10
1
2 subroutine get_path(fqual_temp)
3 c
4 c create table of magnetic field components
5 c
6 c character*47 L
7
8 character(1024) :: fqual_temp
9 character(512) :: ppath
10 character(512) :: cpath
Show file before | Show file after | Hide comments
@@ -0,0 +1,6
1
2 c write(*,*) "Len:", L
3 fqual_temp = TRIM(ppath)//TRIM(cpath)
4 c write(*,*) "Len:", fqual_temp
5 return
6 end
General Comments 0
You need to be logged in to leave comments. Login now