mvb.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS SUBROUTINE COPIES A SPECIFIED NUMBER OF BYTES FROM
C>   ONE PACKED BINARY ARRAY TO ANOTHER.
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C> 1998-07-08  J. WOOLLEN -- REPLACED CALL TO CRAY LIBRARY ROUTINE
C>                           "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB
C>                           ROUTINE "BORT"
C> 1998-10-27  J. WOOLLEN -- MODIFIED TO CORRECT PROBLEMS CAUSED BY IN-
C>                           LINING CODE WITH FPP DIRECTIVES
C> 2002-05-14  J. WOOLLEN -- REMOVED OLD CRAY COMPILER DIRECTIVES
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
C>                           DOCUMENTATION (INCLUDING HISTORY); OUTPUTS
C>                           MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE
C>                           TERMINATES ABNORMALLY
C> 2005-11-29  J. ATOR    -- MAXIMUM NUMBER OF BYTES TO COPY INCREASED
C>                           FROM 24000 TO MXIMB
C> 2014-10-22  J. ATOR    -- MERGE TWO DO LOOPS INTO ONE, AND REMOVE
C>                           MXIMB PARAMETER AND DIMENSIONING OF NVAL
C>
C> USAGE:    CALL MVB (IB1, NB1, IB2, NB2, NBM)
C>   INPUT ARGUMENT LIST:
C>     IB1      - INTEGER: *-WORD PACKED INPUT BINARY ARRAY
C>     NB1      - INTEGER: POINTER TO FIRST BYTE IN IB1 TO COPY FROM
C>     NB2      - INTEGER: POINTER TO FIRST BYTE IN IB2 TO COPY TO
C>     NBM      - INTEGER: NUMBER OF BYTES TO COPY 
C>
C>   OUTPUT ARGUMENT LIST:
C>     IB2      - INTEGER: *-WORD PACKED OUTPUT BINARY ARRAY
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        PKB      UPB
C>    THIS ROUTINE IS CALLED BY: ATRCPT   CNVED4   CPYUPD   MSGUPD
C>                               STNDRD
C>                               Normally not called by any application
C>                               programs.
C>
      SUBROUTINE mvb(IB1,NB1,IB2,NB2,NBM)
 
      CHARACTER*128 BORT_STR
      dimension     ib1(*),ib2(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      jb1 = 8*(nb1-1)
      jb2 = 8*(nb2-1)
 
      DO n=1,nbm
        CALL upb(nval,8,ib1,jb1)
        CALL pkb(nval,8,ib2,jb2)
      ENDDO
 
C  EXITS
C  -----
 
      RETURN
      END