主程序如下: PROGRAM EXAM3 INTEGER PRIME*说明要调用的函数PRME为整型 Do|=50100 IF PRIME(==1) THEN S=S+l WRTE(*,*川 END IF END DO WRTE(*,米)S=S END 运行结果如下: 83 89 97 732.000000主程序如下： PROGRAM EXAM3 INTEGER PRIME * 说明要调用的函数PRIME 为整型 DO I=50,100 IF (PRIME(I)==1) THEN S=S+I WRITE(*,*)I END IF END DO WRITE(*,*)'S=',S END 运行结果如下： ........ 83 89 97 S= 732.000000