** 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/​openad/​ad_s_ifnblnk.F	Source navigation Diff markup Identifier search General search
	Version: master Revert   Change

File indexing completed on 2018-03-02 18:42:51 UTC

5dddee4ea2 Jean* #include "CPP_EEOPTIONS.h"
                 
                 CBOP
                 C     !ROUTINE: IFNBLNK
                 
                 C     !INTERFACE:
                       subroutine oad_s_IFNBLNK( string, index )
                       IMPLICIT NONE
                 
                 C     !DESCRIPTION:
                 C     *==========================================================*
                 C     | FUNCTION IFNBLNK                                         |
                 C     | o Find first non-blank in character string.              |
                 C     *==========================================================*
                 C
                 C     !INPUT PARAMETERS:
                 C     string :: String to find first non-blank in.
                       CHARACTER*(*) string
                       integer index
                 
                 C     !LOCAL VARIABLES:
                 C     L, LS :: Temps for string locations
                       INTEGER L, LS
                 CEOP
                 C
                       LS     = LEN(string)
                       index = 0
                       L=1
                       DO while ((L.le.LS).and.(string(L:L) .eq. ' '))
                         L=L+1
                       end do
                       index = L
                       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