Changeset 3861
- Timestamp:
- 2013-04-06T13:37:10+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/EXTERNAL/XMLF90/src/strings/m_strings.f90
r2281 r3861 538 538 allocate(var%chars(1:lc)) 539 539 !!AG: NAG compiler uses temporaries here: 540 var%chars(:) = (/ (expr(i:i), i=1,lc) /) 541 542 endsubroutine assign_c_to_s 540 ! var%chars(:) = (/ (expr(i:i), i=1,lc) /) 541 do i=1,lc 542 var%chars(i) = expr(i:i) 543 enddo 544 545 end subroutine assign_c_to_s 543 546 544 547 !*******************************************************************************
Note: See TracChangeset
for help on using the changeset viewer.