517 |
n = mnc_cw_vnat(1,indv) + 1 |
n = mnc_cw_vnat(1,indv) + 1 |
518 |
n1 = IFNBLNK(tname) |
n1 = IFNBLNK(tname) |
519 |
n2 = ILNBLNK(tname) |
n2 = ILNBLNK(tname) |
520 |
|
IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN |
521 |
|
write(msgbuf,'(3a,i6,a)') |
522 |
|
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''', |
523 |
|
& tname(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
524 |
|
& ' characters and has been truncated to fit' |
525 |
|
CALL print_error(msgbuf, mythid) |
526 |
|
C MNC_MAX_CHAR = n2 - n1 + 1 |
527 |
|
n2 = MNC_MAX_CHAR + n1 - 1 |
528 |
|
ENDIF |
529 |
C write(*,*) atype,tname(n1:n2) |
C write(*,*) atype,tname(n1:n2) |
530 |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
531 |
& mnc_blank_name(1:MNC_MAX_CHAR) |
& mnc_blank_name(1:MNC_MAX_CHAR) |
532 |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
533 |
|
|
534 |
n1 = IFNBLNK(tval) |
n1 = IFNBLNK(tval) |
535 |
n2 = ILNBLNK(tval) |
n2 = ILNBLNK(tval) |
536 |
|
IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN |
537 |
|
write(msgbuf,'(3a,i6,a)') |
538 |
|
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''', |
539 |
|
& tval(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
540 |
|
& ' characters and has been truncated to fit' |
541 |
|
CALL print_error(msgbuf, mythid) |
542 |
|
n2 = MNC_MAX_CHAR + n1 - 1 |
543 |
|
ENDIF |
544 |
|
|
545 |
IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN |
IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN |
546 |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
547 |
& mnc_blank_name(1:MNC_MAX_CHAR) |
& mnc_blank_name(1:MNC_MAX_CHAR) |