1988 Code

Intel® Fortran Compiler

Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

1988 Code

448 Views

301 Write(*,300)
300 Format(/'---------------------------------------------------------',//'          Menu',//&
        '             Single Run                      ::   1',/,&
        '             Halt Program                    ::   2',//,&
        '                Selection :: ',\)

    READ(*,*,ERR=11)num
    if(num .eq. 1) then
        NL = 1
    endif
    if(num .eq. 2) then
        STOP 'Program completed'
    endif


    if(num .lt. 1 .or. num .gt. 2) then
        Write(*,302)num
302     Format(/'             Error in input',/'             Number must be valid :: ',I4)
        goto 301
    endif

11  WRITE (*, 180)
180 Format(4x,/'              Enter the data file name: ',\)
    READ(*,30,ERR=11)zFILE1
30  FORMAT((A))

I have used this code since 1988 and I just found an error in the code - never noticed it before.

Link Copied

0 Replies

Community support is provided Monday to Friday. Other contact methods are available here.

Intel does not verify all solutions, including but not limited to any file transfers that may appear in this community. Accordingly, Intel disclaims all express and implied warranties, including without limitation, the implied warranties of merchantability, fitness for a particular purpose, and non-infringement, as well as any warranty arising from course of performance, course of dealing, or usage in trade.

For more complete information about compiler optimizations, see our Optimization Notice.