¿Cómo generar números en una matriz en un archivo en programación Fortran?

Supongamos que tenemos una matriz A(1:10)=1, lo que significa que los diez elementos son iguales a 1. La programación es la siguiente:

SALIDA DEL PROGRAMA

NINGUNA IMPLÍCITA

REAL(8)::A(10)

INTEGER( 4): :I

A=1.

OPEN(8,FILE="OUT.TXT")! Archivo de salida

DO I=1,10

WRITE(8,*)A(I)! Elementos de matriz de salida uno por uno

ENDDO

END Salida del programa