| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
147 |
COST_PROFILES |
write(fnameequinc(1:80),'(3a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/cost_profiles.F |
150 |
COST_PROFILES |
err = NF_OPEN(fnameequinc,NF_NOWRITE, |
|
./pkg/profiles/cost_profiles.F |
426 |
COST_PROFILES |
write(fnameequinc(1:80),'(3a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/cost_profiles.F |
429 |
COST_PROFILES |
err = NF_OPEN(fnameequinc,NF_NOWRITE, |
|
./pkg/profiles/cost_profiles.F |
53 |
COST_PROFILES |
character*(80) profilesfile, fnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
57 |
PROFILES_INIT_FIXED |
character*(80) fnameequinc, adfnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
675 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(3a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
681 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
684 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
689 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
704 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(3a,i3.3,a,i3.3,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
710 |
PROFILES_INIT_FIXED |
inquire( file=fnameequinc, exist=exst ) |
|
./pkg/profiles/profiles_init_fixed.F |
718 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
722 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
879 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(a,i3.3,a,i3.3,a,i4.4,a,i4.4,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
884 |
PROFILES_INIT_FIXED |
& fnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
885 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
899 |
PROFILES_INIT_FIXED |
write(fnameequinc(1:80),'(a,i3.3,a,i3.3,a,i4.4,a,i4.4,a)') |
|
./pkg/profiles/profiles_init_fixed.F |
904 |
PROFILES_INIT_FIXED |
& fnameequinc |
|
./pkg/profiles/profiles_init_fixed.F |
905 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |