123 |
# concurrently. Optimisation knows nothing about parallel access |
# concurrently. Optimisation knows nothing about parallel access |
124 |
# it assumes sequential semantics and rearranges code on that |
# it assumes sequential semantics and rearranges code on that |
125 |
# basis. |
# basis. |
126 |
if ( "${fname}" != "fbar.F" ) then |
if ( "${fname}" == "fbar.F" || "${fname}" == "different_multiple.F" ) then |
|
echo ' @ $(FCOMP) '$pf >> ${mfile}.$$ |
|
|
else |
|
127 |
echo ' @ $(FCOMP0) '$pf >> ${mfile}.$$ |
echo ' @ $(FCOMP0) '$pf >> ${mfile}.$$ |
128 |
|
else |
129 |
|
echo ' @ $(FCOMP) '$pf >> ${mfile}.$$ |
130 |
endif |
endif |
131 |
set psupp_files = ( ${psupp_files} ${fname} ) |
set psupp_files = ( ${psupp_files} ${fname} ) |
132 |
set psupp_slist = ( ${psupp_slist} ${f} ) |
set psupp_slist = ( ${psupp_slist} ${f} ) |