Platform

x64, Win32

Purpose

To alter a character argument so that all letters become lower case.

Syntax

SUBROUTINE LCASE@(A)
CHARACTER (LEN=*) A

Example

PROGRAM TEST_CASE
 CHARACTER (LEN=10)::FRED
 FRED = 'ABC123' 
 CALL LCASE@(FRED)
 IF(FRED /= 'abc123') PRINT *,'LCASE@ routine has failed'
END PROGRAM TEST_CASE