Diskussion:Fortran: Fortran 95: Verzweigungen und Schleifen

Wofür steht eigentlich das [Selectname]?--84.174.198.212 18:22, 11. Nov. 2007 (CET)

In eckige Klammern eingefasste Elemente sind optional. [selectname] steht für einen "case-construct-name". Das ist einfach ein Name, den man solchen "select-case-Blöcken" (bzw. lt. Fortran-Standard "case constructs") geben kann, aber nicht muss. Das funktioniert genauso auch für if-Verzweigungen, do-Schleifen, ...

Beispiel:

program bsp
  implicit none
 
  integer :: i
 
! ...
 
  read( *, * ) i

!...

  sc45: select case( i )
    case( 1 )
      write( * , * ) "ffffff"
    case( 2 )
      write( * , * ) "gggggg"
    case default
      write( * , * ) "irgendwas"
  end select sc45

!  *** Kuerzer ***
!  select case( i )
!    case( 1 )
!      write( * , * ) "ffffff"
!    case( 2 )
!      write( * , * ) "gggggg"
!    case default
!      write( * , * ) "irgendwas"
!  end select

       
  if99: if( i == 2 ) then
    write( *, * ) "hallo"
  end if if99

  do12345: do i = 1, 5
    write( *, * ) i
  end do do12345
end program bsp

--Intruder 19:28, 11. Nov. 2007 (CET)