Поддержка разработки ядра Linux для шифрования RSA

perl  -pe '/\h::\h/ && /^\h*REAL(?!\()\K/ and s//(kind=r8)/' input.txt

para ser leído como:

• cuando cada línea tiene una subcadena "::" delimitada por un espacio en blanco.
• la palabra clave "REAL" comienza al principio de la línea precedida opcionalmente por un espacio en blanco y no ve un corchete de apertura a su derecha.
• cuando se cumplen las dos condiciones anteriores, realizamos la sustitución.
• el comando s// (kind=r8 )/ significa usar la expresión regular de la coincidencia exitosa anterior y reemplazarla con lo que esté en el RHS.

Salida

var= (var1*REAL(j)-var2*REAL(j)*var3)
REAL(kind=r8) :: pwr10
INTRINSIC REAL
REAL(kind=r16) :: qr(n), qaorg, qx
REAL(kind=r8), DIMENSION(-1:nx, -1:ny) :: arg1
REAL(kind=r8) :: y3