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

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

bf4be02920 Jean* !=======================================================================
                       integer function generate_tag( iarg1, iarg2, carg )
                       implicit none
                 ! Predefined constants/arrays
                 #include "CPLR_SIG.h"
                 ! Arguments
                       integer iarg1
                       integer iarg2
                       character*(*) carg
                 ! Local
d33d5ef395 Jean* c     integer j,hash,pow
                 c     integer itrans(MAXLEN_COMP_NAME)
bf4be02920 Jean* !     ------------------------------------------------------------------
                 
                 ! Convert the characters to an integer array
d33d5ef395 Jean* c     call mitcplr_char2int( carg, itrans )
bf4be02920 Jean* 
                 ! Hash the integer array
d33d5ef395 Jean* c     hash=1
                 c     pow=1
                 c     do j=1,MAXLEN_COMP_NAME
                 c      hash=abs(hash+itrans(j)*pow)
                 c      pow=mod(pow*128,256*256)
                 c     enddo
bf4be02920 Jean* 
d33d5ef395 Jean* c     generate_tag=(hash*256+iarg2)*128+iarg1
                 c     generate_tag=abs(mod(generate_tag,256*256*256))
                       generate_tag = iarg1*MAX_TILES + iarg2
bf4be02920 Jean* 
                 c     if (DEBUG)
                 c    & write(0,*) 'generate_tag = ',generate_tag,iarg1,iarg2,carg
                 
                 !     ------------------------------------------------------------------
                       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