diff options
Diffstat (limited to 'Dragon/src/EDIGAP.f')
| -rw-r--r-- | Dragon/src/EDIGAP.f | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/Dragon/src/EDIGAP.f b/Dragon/src/EDIGAP.f index 487478c..e0a7e31 100644 --- a/Dragon/src/EDIGAP.f +++ b/Dragon/src/EDIGAP.f @@ -1,6 +1,6 @@ *DECK EDIGAP SUBROUTINE EDIGAP(IPADF,TEXT8,NGROUP,NGCOND,NREGIO,VOLUME,IGCOND, - 1 FLUXES,FLUHOM,IPRINT,COURIN) + 1 FLUXES,IPRINT,COURIN) * *----------------------------------------------------------------------- * @@ -26,7 +26,6 @@ * VOLUME volume of regions. * IGCOND limit of condensed groups. * FLUXES heterogeneous gap fluxes. -* FLUHOM homogeneous fluxes. * IPRINT print flag. * *Parameters: output @@ -41,8 +40,7 @@ TYPE(C_PTR) IPADF INTEGER NGROUP,NGCOND,NREGIO,IGCOND(NGCOND),IPRINT CHARACTER TEXT8*(*) - REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP),FLUHOM(NGROUP), - 1 COURIN(NGCOND) + REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP),COURIN(NGCOND) *---- * LOCAL VARIABLES *---- @@ -67,12 +65,11 @@ 10 CONTINUE COURIN(IGRCD)=COURIN(IGRCD)+REAL(SUM/SUD) 20 CONTINUE - COURIN(IGRCD)=COURIN(IGRCD)/FLUHOM(IGRCD) 25 CONTINUE DEALLOCATE(IFGAP) IF(IPRINT.GT.3) THEN - WRITE(6,'(/19H EDIGAP: VALUES OF ,A,22H FLUXES OR ADF PER MAC, - 1 13HRO-GROUPS ARE)') TEXT8 + WRITE(6,'(/19H EDIGAP: VALUES OF ,A,22H GAP FLUXES PER MACRO-, + 1 10HGROUPS ARE)') TEXT8 WRITE(6,'(1X,1P,10E13.5)') (COURIN(IGRCD),IGRCD=1,NGCOND) ENDIF RETURN |