[½»Á÷] ¡¾ÇóÖú¡¿Õâ¸ö³ÌÐòÃ÷Ã÷ûÓдíÎ󣬵«ÊDZàÒë¾ÍÊÇÏÔʾÓиö´íÎó¡¾ÒÑÍê½á¡¿ ÒÑÓÐ1È˲ÎÓë

FUNCTION plus(hex1,hex2) RESULT(hexsum)
INTEGER::dec1,dec2,tmp,n=8,k,i
CHARACTER(len=*)::hex1,hex2,hexsum
    dec1=h2d(hex1);dec2=h2d(hex2);tmp=dec1+dec2;hexsum=d2h(tmp)
        CONTAINS
         FUNCTION d2h(dec) RESULT(hex)
         CHARACTER(len=8)::hex
         CHARACTER(len=16)::hexc=(/'0123456789ABCDEF'/)
         INTEGER,INTENT(in)::dec
         tmp=dec;hex='';k=0
         DO WHILE(tmp/=0)
          i=MOD(tmp,16);hex(n-k:n-k)=hexc(i+1:i+1);
          tmp=tmp/16;k=k+1
         END DO
         END FUNCTION d2h
         FUNCTION h2d(hex) RESULT(dec)
         INTEGER::dec
         INTEGER,PARAMETER::asciiA=65,asciiF=70,ascii0=48,ascii9=57
         CHARACTER(len=8),INTENT(in)::hex
     dec=0
         DO i=1,n
         IF(hex(i:i)=='')THEN
           CYCLE
         ELSE
           tmp=ICHAR(hex(i:I))
           SELECT CASE(tmp)
                  CASE(asciiA:asciiF);k=tmp-55
                          CASE(ascii0:ascii9);k=tmp-48
                          CASE DEFAULT;  EXIT
                END SELECT
        END IF
        dec=dec*16+k
  END DO
END FUNCTION h2d
END FUNCTION plus
!
PROGRAM HEX_plus
INTERFACE OPERATOR(+)
  FUNCTION plus(hex1,hex2) RESULT(hexsum)
  CHARACTER(len=7),INTENT(in)::hex1,hex2
  CHARACTER(len=8)::hexsum
  END FUNCTION plus
END INTERFACE
CHARACTER(len=7)::hex1,hex2,result*8
OPEN(1,FILE='myf1.out')
hex1='1FAB21';hex2='2EDC34';result=hex1+hex2
WRITE(1,'(A8)')result; WRITE(*,'(A8)')result
END PROGRAM Hex_Plus