Unidades de entrada y salida estándar en Fortran 90?

Si tiene un compilador Fortran 2003, el módulo intrínsecoiso_fortran_env define las variables input_unit, output_unit y error_unit que apuntan a standard in, standard out y standard error respectivamente.

Tiendo a usar algo como

#ifdef f2003
use, intrinsic :: iso_fortran_env, only : stdin=>input_unit, &
                                          stdout=>output_unit, &
                                          stderr=>error_unit
#else
#define stdin  5
#define stdout 6
#define stderr 0
#endif

En mis rutinas de entrada/salida. Aunque esto, por supuesto, significa preprocesar su archivo fuente (para hacer esto con ifort, use la bandera -fpp al compilar su código fuente o cambie la extensión del archivo fuente de .f a .F o de .f90 a .F90).

Una alternativa a esto sería escribir su propio módulo, no intrínseco, iso_fortran_env (si no tiene un compilador Fortran 2003), como se discute aquí (este enlace ha muerto desde que se publicó esta respuesta). En este ejemplo utilizan un módulo:

module iso_fortran_env

  ! Nonintrinsic version for Lahey/Fujitsu Fortran for Linux. 
  ! See Subclause 13.8.2 of the Fortran 2003 standard. 

  implicit NONE 
  public 

  integer, parameter :: Character_Storage_Size = 8 
  integer, parameter :: Error_Unit = 0 
  integer, parameter :: File_Storage_Size = 8 
  integer, parameter :: Input_Unit = 5 
  integer, parameter :: IOSTAT_END = -1 
  integer, parameter :: IOSTAT_EOR = -2 
  integer, parameter :: Numeric_Storage_Size = 32 
  integer, parameter :: Output_Unit = 6 

end module iso_fortran_env

Como se señaló en otras respuestas, 0, 5 y 6 son generalmente stderr, stdin y stdout (esto es cierto para ifort en Linux) pero esto es no definido por el estándar Fortran. Usar el módulo iso_fortran_env es la forma correcta de escribir portablemente en estas unidades.