|
||||
File indexing completed on 2018-03-02 18:38:30 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCbf4be02920 Jean*0001 !======================================================================= 0002 subroutine mitcplr_char2real( carg, rarg ) 0003 implicit none 0004 ! Predefined constants/arrays 0005 #include "CPLR_SIG.h" 0006 ! Arguments 0007 character*(*) carg 0008 real*4 rarg(MAXLEN_COMP_NAME) 0009 ! Local 0010 integer j 0011 character*(MAXLEN_COMP_NAME) cbuftmp 0012 ! ------------------------------------------------------------------ 0013 0014 ! Copy carg into a fixed length character array 0015 cbuftmp = carg 0016 0017 ! Convert the character array to integers 0018 do j=1,MAXLEN_COMP_NAME 0019 rarg(j)=float( ichar( cbuftmp(j:j) ) ) 0020 enddo 0021 0022 ! ------------------------------------------------------------------ 0023 return 0024 end 0025 !=======================================================================
[ 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 |