w3ai15.f

Go to the documentation of this file.

C> @file
C> @brief Converts a set of binary numbers to an equivalent set
C> of ascii number fields in core.
C> @author R. Allard @date 1974-01
 
C> Converts a set of binary numbers to an equivalent set
C> of ascii number fields in core. This is an alternate procedure
C> to the use of the 360/195 version of encode.
C>
C> Program history log:
C> - R. Allard 1974-01-15
C> - Ralph Jones 1989-02-06 Change from assembler to fortran
C> this subroutine should be rewritten in intel 8088 assembly language.
C> - Ralph Jones 1990-08-13 Change to cray cft77 fortran.
C> - Boi Vuong 2012-11-05 Change variable zero fill for little-endian.
C>
C> @param[in] NBUFA Input array (integer*4).
C> @param[in] N1 Number of integers in nbufa to be converted.
C> @param[in] N2 Desired character width of ascii number field.
C> @param[in] MINUS Character to be inserted in the high order position
C> of a negative number field.
C> @param[out] NBUFB Output array (integer*4).
C>
C> @note If n2 is greater than 4, allow two words (eight characters)
C> in the nbufb array for each ascii number field. A number field
C> is left adjusted with blank fill to the right if needed.
C> Likewise, if n2 is less than 4, the result is left adjusted
C> with blank fill to the right.
C>
C> @note N2 can be specified in the range 1-8. An eight digit positive
C> integer can be converted or a seven digit negative integer
C> and a sign. Zero fill is used for high order positions in a
C> number field. The user should be aware that w3ai15 does not
C> verify that the value of n2 is in the correct range.
C>
C> @note The minus sign can be inserted as a literal in the call
C> sequence or defined in a data statement. 1h- and 1h+ are the
C> two most likely negative signs. Unfortunately the ascii plus
C> character is the negative sign required in most transmissions.
C> The minus sign will always be in the high order position of a
C> negative number field.
C>
C> @note If a number contains more digits than the n2 specification
C> allows, the excess high order digits are lost.
C>
C> @author R. Allard @date 1974-01
      SUBROUTINE  w3ai15 (NBUFA,NBUFB,N1,N2,MINUS)
 
      INTEGER     ATEMP
      INTEGER     BTEMP
      INTEGER     IDIV(8)
      INTEGER     NBUFA(*)
      INTEGER     NBUFB(*)
      INTEGER*8     ZERO(8)
C
      CHARACTER*1 BLANK
      CHARACTER*1 JTEMP(8)
      CHARACTER*1 MINUS
      CHARACTER*1 NUM(0:9)
C
      LOGICAL     ISIGN
C
      equivalence(btemp,jtemp(1))
C
      DATA  blank /' '/
      DATA  idiv  /1,10,100,1000,10000,100000,1000000,10000000/
      DATA  num   /'0','1','2','3','4','5','6','7','8','9'/
C     FOR LITTLE_ENDIAN
      DATA  zero  /z'2020202020202030',z'2020202020203030',
     &             z'2020202020303030',z'2020202030303030',
     &             z'2020203030303030',z'2020303030303030',
     &             z'2030303030303030',z'3030303030303030'/
 
C     FOR BIG_ENDIAN
c     DATA  ZERO  /Z'3020202020202020',Z'3030202020202020',
c    &             Z'3030302020202020',Z'3030303020202020',
c    &             Z'3030303030202020',Z'3030303030302020',
c    &             Z'3030303030303020',Z'3030303030303030'/
C
      DO 100 i = 1,n1
        IF (nbufa(i).EQ.0) THEN
            nbufb(i) = zero(n2)
            GO TO 100
        ENDIF
          atemp = nbufa(i)
          isign = .false.
          IF (atemp.LT.0) THEN
            isign = .true.
            atemp = iabs(atemp)
          ENDIF
          IF (.NOT.isign) THEN
          DO 10 j = 1,8
            IF (j.LE.n2) THEN
              i1 = mod(atemp/idiv(n2-j+1),10)
              jtemp(j) = num(i1)
            ELSE
              jtemp(j) = blank
            ENDIF
   10     CONTINUE
 
          ELSE
 
          jtemp(1) = minus
          DO 20 j = 2,8
            IF (j.LE.n2) THEN
              i1 = mod(atemp/idiv(n2-j+1),10)
              jtemp(j) = num(i1)
            ELSE
              jtemp(j) = blank
            ENDIF
   20     CONTINUE
          ENDIF
C
        nbufb(i) = btemp
C
  100 CONTINUE
        RETURN
        END