https://t.me/RX1948
Server : LiteSpeed
System : Linux srv107862549.host 5.15.0-124-generic #134-Ubuntu SMP Fri Sep 27 20:20:17 UTC 2024 x86_64
User : malam2778 ( 1069)
PHP Version : 8.0.30
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
Directory :  /usr/share/source-highlight/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/source-highlight/fortran.lang
# Fortran language definition file for GNU Source-highlight

keyword = "ACCESS|ASSIGN|BACKSPACE|BLANK|BLOCK|CALL",
      "CLOSE|COMMON|CONTINUE|DATA|DIMENSION|DIRECT|DO",
      "ELSE|ENDIF|ENDDO|END",
      "ENTRY|EOF|EQUIVALENCE|ERR|EXIST|EXTERNAL|FILE|FMT|FORM",
      "FORMAT|FORMATTED|FUNCTION|GO|TO|IF|IMPLICIT|INCLUDE|INQUIRE",
      "INTRINSIC|IOSTAT|LOGICAL|NAMED|NAMELIST|NEXTREC|NUMBER|OPEN|OPENED",
      "PARAMETER|PAUSE|PRINT|PROGRAM|READ|REC|RECL",
      "RETURN|REWIND|SEQUENTIAL|STATUS|STOP|SUBROUTINE|THEN|TYPE",
      "UNFORMATTED|UNIT|WRITE|SAVE"
        nonsensitive

# Fortran 90
keyword = "ALLOCATE|ALLOCATABLE|CASE|CONTAINS|CYCLE|DEALLOCATE",
      "ELSEWHERE|EXIT|INTERFACE|INTENT|MODULE|ONLY|OPERATOR",
      "OPTIONAL|POINTER|PRIVATE|PROCEDURE|PUBLIC|RESULT|RECURSIVE",
      "SELECT|SEQUENCE|TARGET|USE|WHILE|WHERE"
      nonsensitive

# Fortran 95
keyword = "ELEMENTAL|FORALL|PURE"
      nonsensitive

# Fortran 2003
keyword = "ABSTRACT|CLASS|DELEGATE|STATIC|REFERENCE|ROUND",
      "DECIMAL|SIGN|ENCODING|IOMSG|ENDFILE|NEXTREC|PENDING",
      "PASS|ASSOCIATE|FLUSH|DECORATE|EXTENDS|EXTENSIBLE|GENERIC",
      "NON_OVERRIDABLE|ENUM|ENUMERATOR|TYPEALIAS|MOVE_ALLOC"
      nonsensitive

keyword = "ASYNCHRONOUS|BIND|PROTECTED|VOLATILE"
      nonsensitive

# Continuation character
specialchar = "&"

comment start "!"

# Real constants
number = '[+-]?\<([[:digit:]]*\.)?[[:digit:]]*([eEdDqQ][+-]?[[:digit:]]+)?(_[[:digit:][:alpha:]]+)?\>'

# Binary, octal, and hexadecimal constants
number = 'b\'\<[01]+\>\''
number = 'o\'\<[0-7]+\>\''
number = 'z\'\<[A-Fa-f0-9]+\>\''

# fortran strings have no \ escape char
string delim "\"" "\""
string delim "'" "'"

type = "CHARACTER|DOUBLE|INTEGER|REAL|PRECISION",
       "COMPLEX" nonsensitive

include "symbols.lang"

include "function.lang"

https://t.me/RX1948 - 2025