|
||||
File indexing completed on 2018-03-02 18:38:31 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCbf4be02920 Jean*0001 !======================================================================= 0002 subroutine mitcplr_real2char( rarg, carg ) 0003 implicit none 0004 ! Predefined constants/arrays 0005 #include "CPLR_SIG.h" 0006 ! Arguments 0007 character*(MAXLEN_COMP_NAME) carg 0008 real*4 rarg(MAXLEN_COMP_NAME) 0009 ! Local 0010 integer j 0011 ! ------------------------------------------------------------------ 0012 0013 ! Convert the integer array to characters 0014 do j=1,MAXLEN_COMP_NAME ab7132b07f Jean*0015 carg(j:j) = char( nint( rarg(j) ) ) bf4be02920 Jean*0016 enddo 0017 0018 ! ------------------------------------------------------------------ 0019 return 0020 end 0021 !=======================================================================
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |