FPT and WinFPT Reference Manual - Command-line Commands

| SimCon Home | Reference Manual Home |


CHANGE SELECT CASE TO IF - THEN - ELSE

Syntax:

[DO NOT] CHANGE SELECT CASE TO IF [-] THEN [-] ELSE

Function:

Systematically changes SELECT CASE constructs to IF-THEN-ELSE constructs. SELECT CASE is not supported by many Fortran 77 implementations, and differs in syntax between the IBM AIX and Fortran 90 definition and that used by Encore Concept-32 Fortran.

Where to use this command:

Operating system command line

Yes


Configuration file, config.fsp

Yes


Specification (FSP) files, *.fsp

Yes


Interactively, to FPT> prompt:

Yes


Interactive command files

Yes


Embedded in the Fortran code

Yes


Default:

SELECT CASE constructs are not changed by default (Note that defaults may be modified in the configuration file).

Example:

The code:

SELECTCASE IC0 CASE :0 WRITE(6,'('' Less than or equal to 0 '')') CASE 1:9 WRITE(6,'('' 1 to 9 '')') CASE 10 RETURN CASE DEFAULT WRITE(6, 1 '('' Default - greater than or equal to 10 '')') ENDSELECT

becomes:

! SELECTCASE IC0 ! CASE:0 IF (IC0 .LE. 0) THEN WRITE (6,'('' Less than or equal to 0 '')') ! CASE 1:9 ELSEIF ((IC0 .GE. 1) .AND. 1 (IC0 .LE. 9)) THEN WRITE (6,'('' 1 to 9 '')') ! CASE 10 ELSEIF (IC0 .EQ. 10) THEN RETURN ! CASE DEFAULT ELSE WRITE (6, 1 '('' Default - greater than or equal to 10 '')') ! ENDSELECT ENDIF


Copyright ©1995 to 2014 Software Validation Ltd. All rights reserved.