Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by heimbach, Wed Mar 5 23:39:53 2003 UTC | revision 1.3 by jmc, Mon Oct 8 23:59:21 2007 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | C $Header$ | C $Header$ |
| 2 | C $Name$ | |
| 3 | ||
| 4 | #include "COST_CPPOPTIONS.h" | #include "COST_CPPOPTIONS.h" |
| 5 | ||
| # | Line 41 c-- Each process has calculated the gl | Line 42 c-- Each process has calculated the gl |
| 42 | lastdiva = .FALSE. | lastdiva = .FALSE. |
| 43 | ||
| 44 | IF (myProcId .eq. 0) THEN | IF (myProcId .eq. 0) THEN |
| 45 | _BEGIN_MASTER( mythid ) | _BEGIN_MASTER( mythid ) |
| 46 | open(unit=76,file='costfinal') | open(unit=76,file='costfinal') |
| 47 | write(76,*) fc | write(76,*) fc |
| 48 | close(76) | close(76) |
| 49 | _END_MASTER( mythid ) | _END_MASTER( mythid ) |
| 50 | ENDIF | ENDIF |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |