1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "PACKAGES_CONFIG.h" |
#include "SHOWFLOPS_OPTIONS.h" |
|
#include "CPP_OPTIONS.h" |
|
5 |
|
|
6 |
CBOP |
CBOP |
7 |
C !ROUTINE: SHOWFLOPS_INSOLVE |
C !ROUTINE: SHOWFLOPS_INSOLVE |
25 |
|
|
26 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
27 |
C == Routine arguments == |
C == Routine arguments == |
28 |
C note: under the multi-threaded model myiter and |
C note: under the multi-threaded model myiter and |
29 |
C mytime are local variables passed around as routine |
C mytime are local variables passed around as routine |
30 |
C arguments. Although this is fiddly it saves the need to |
C arguments. Although this is fiddly it saves the need to |
31 |
C impose additional synchronisation points when they are |
C impose additional synchronisation points when they are |
32 |
C updated. |
C updated. |
33 |
C myThid - thread number for this instance of the routine. |
C myThid - thread number for this instance of the routine. |
34 |
integer iloop |
integer iloop |
35 |
INTEGER myThid |
INTEGER myThid |
36 |
|
|
37 |
C !FUNCTIONS: |
C !FUNCTIONS: |
38 |
C == Functions == |
C == Functions == |