29 |
|
|
30 |
C !USES: |
C !USES: |
31 |
implicit none |
implicit none |
32 |
#include "mnc_common.h" |
#include "MNC_COMMON.h" |
33 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
34 |
|
|
35 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
69 |
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1 |
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1 |
70 |
RETURN |
RETURN |
71 |
ENDIF |
ENDIF |
72 |
write(msgbuf,'(3a,i,a)') |
write(msgbuf,'(3a,i10,a)') |
73 |
& 'MNC_CW_SET_UDIM ERROR: for file group name ''', |
& 'MNC_CW_SET_UDIM ERROR: for file group name ''', |
74 |
& fgname(fgf:fgl), ''' the unlim dim ''', nudim, |
& fgname(fgf:fgl), ''' the unlim dim ''', nudim, |
75 |
& ''' is not allowed' |
& ''' is not allowed' |
95 |
|
|
96 |
C !USES: |
C !USES: |
97 |
implicit none |
implicit none |
98 |
#include "mnc_common.h" |
#include "MNC_COMMON.h" |
99 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
100 |
|
|
101 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |