459 |
DO j1 = s(1),e(1) |
DO j1 = s(1),e(1) |
460 |
k1 = k2 + j1 |
k1 = k2 + j1 |
461 |
kr = kr + 1 |
kr = kr + 1 |
462 |
resh_i(kr) = var(k1) |
resh_i(kr) = MNC2I( var(k1) ) |
463 |
ENDDO |
ENDDO |
464 |
err = NF_PUT_VARA_INT(fid, idv, vstart, vcount, resh_i) |
err = NF_PUT_VARA_INT(fid, idv, vstart, vcount, resh_i) |
465 |
ENDIF |
ENDIF |
833 |
DO j1 = s(1),e(1) |
DO j1 = s(1),e(1) |
834 |
k1 = k2 + j1 |
k1 = k2 + j1 |
835 |
kr = kr + 1 |
kr = kr + 1 |
836 |
var(k1) = resh_d(kr) |
var(k1) = MNCI2( resh_d(kr) ) |
837 |
ENDDO |
ENDDO |
838 |
ENDIF |
ENDIF |
839 |
IF (stype(1:1) .EQ. 'R') THEN |
IF (stype(1:1) .EQ. 'R') THEN |
842 |
DO j1 = s(1),e(1) |
DO j1 = s(1),e(1) |
843 |
k1 = k2 + j1 |
k1 = k2 + j1 |
844 |
kr = kr + 1 |
kr = kr + 1 |
845 |
var(k1) = resh_r(kr) |
var(k1) = MNCI2( resh_r(kr) ) |
846 |
ENDDO |
ENDDO |
847 |
ENDIF |
ENDIF |
848 |
IF (stype(1:1) .EQ. 'I') THEN |
IF (stype(1:1) .EQ. 'I') THEN |