** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

	MITgcm MITgcm/​pkg/​compon_communic/​mitcplr_char2dbl.F	Source navigation Diff markup Identifier search General search
	Version: master Revert   Change

File indexing completed on 2018-03-02 18:38:30 UTC

f137249679 Jean* !=======================================================================
                       subroutine mitcplr_char2dbl( carg, rarg )
                       implicit none
                 ! Predefined constants/arrays
                 #include "CPLR_SIG.h"
                 ! Arguments
                       character*(*) carg
                       real*8 rarg(MAXLEN_COMP_NAME)
                 ! Local
                       integer j
                       character*(MAXLEN_COMP_NAME) cbuftmp
                 !     ------------------------------------------------------------------
                 
                 ! Copy carg into a fixed length character array
                       cbuftmp = carg
                 
                 ! Convert the character array to integers
                       do j=1,MAXLEN_COMP_NAME
                        rarg(j)= ichar( cbuftmp(j:j) )
                       enddo
                 
                 !     ------------------------------------------------------------------
                       return
                       end
                 !=======================================================================

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team