Matlab - leer e imprimir un nombre

IMPLICIT NONE

CHARACTER*50 :: nombre

INTEGER :: longitud=0

PRINT *, 'Ingrese su nombre'

PRINT *, 'NO MAS DE 20 CARACTERES'

READ *, nombre

PRINT *, nombre

longitud=LEN(nombre)

print *, longitud

END PROGRAM

nombre=input('Ingrese su nombre, NO MAS DE 20 CARACTERES','s');

disp(nombre)

longitud=length(nombre);

disp(longitud)

nombre=input('Ingrese su nombre, NO MAS DE 20 CARACTERES','s');

if length(nombre)>20

    disp('NO MAS DE 20 CARACTERES')

else

disp(nombre)

longitud=length(nombre);

disp(longitud)

end