[交流] 【求助】一个FORTRAN程序问题【已完结】

PROGRAM main
IMPLICIT NONE
LOGICAL::flag
INTEGER,DIMENSION(1:6)::number
INTEGER::i
OPEN(1,FILE='MYF1.OUT')
DO i=100,999
flag=find(i)
IF(flag)THEN
  WRITE(*,'(6I4)')number
  WRITE(1,'(6I4)')number
END IF
END DO
CONTAINS
    FUNCTION  find(n) RESULT(log)
    INTEGER::n,count,b,s,g,tmp,temp,number(1:6)
    LOGICAL::log
    log=.FALSE.
    count=1
    tmp=n
    number(count)=tmp
    DO WHILE(tmp/10/=0)
        count=count+1
        g=MOD(tmp,10)
        s=MOD(tmp/10,10)
        b=tmp/100
        IF(b/=0)THEN
           tmp=b*s*g
        ELSEIF(s/=0)THEN
          tmp=s*g
        ELSEIF(g/=0)THEN
          tmp=g
         END IF
         number(count)=tmp
    END DO
    IF(count==6.AND.number(6)/=0)log=.TRUE.
    END FUNCTION find
  END PROGRAM main