Cómo generar una onda cuadrada usando FORTRAN

Primero, debe definir algunas variables después de un comando principal. Tienes que definir dónde está la onda cuadrada y todo tu rango. E imprimirlo.

Luego obtendrá el código de la siguiente manera:

Programe un_ejemplo

! ============ configuración de parámetros ============

implícito ninguno
entero :: isetval
entero, parámetro :: ispace = 20
real (tipo = 8), parámetro :: x = 2
real (tipo = 8) :: dx
real (tipo = 8), dimensión (espacio + 1) :: u0
dx = x / (ispace)
! ============ donde se supone que la ola va de 6 a 10 puntos ============

do isetval = 1, ispace + 1
u0 (isetval) = 1
fin hacer

do isetval = 6,10
u0 (isetval) = 2
fin hacer

! ============ escribir en el archivo ============

abierto (unidad = 1001, archivo = ‘resultados.txt’, estado = ‘reemplazar’)
Do isetval = 1, ispace

escribir (1001,301), isetval, u0 (isetval)
enddo
Formato 301 (i3, es24.14)
cerrar (unidad = 1001)

fin Programa uno_ejemplo