Read and respond to this message at:
https://sourceforge.net/forum/message.php?msg_id=4242227
By: bullock
You don't have to wait. My colleagues and I use the following in
our UserDefineLang.xml file:
<UserLang name="FortranFreeform" ext="f90 f95 f2k">
<Settings>
<Global caseIgnored="yes" />
<TreatAsSymbol comment="no" commentLine="yes" />
<Prefix words1="no" words2="no" words3="no" words4="no" />
</Settings>
<KeywordLists>
<Keywords name="Delimiters">'"0'"0</Keywords>
<Keywords name="Folder+">do then</Keywords>
<Keywords name="Folder-">enddo endif end</Keywords>
<Keywords name="Operators">- % & ( ) * , . / : ; + <
= ></Keywords>
<Keywords name="Comment">1 2 0!</Keywords>
<Keywords name="Words1">access action advance allocatable allocate
apostrophe assign assignment associate asynchronous backspace bind blank blockdata
call case character class close common complex contains continue cycle data
deallocate decimal delim default dimension direct dowhile double doubleprecision
else elseif elsewhere encoding end endassociate endblockdata endfile endforall
endfunction endinterface endmodule endprogram endselect endsubroutine endtype
endwhere entry eor equivalence err errmsg exist exit external file flush fmt
forall form format formatted function go goto id if implicit in include inout
integer inquire intent interface intrinsic iomsg iolength iostat kind len logical
module name named namelist nextrec nml none nullify number only open opened
operator optional out pad parameter pass pause pending pointer pos position
precision print private program protected public quote read readwrite real rec
recl recursive result return rewind save select selectcase selecttype sequential
sign size stat status stop stream subroutine target to type unformatted unit
use value volatile wait where while write</Keywords>
<Keywords name="Words2">abs achar acos acosd adjustl adjustr aimag
aimax0 aimin0 aint ajmax0 ajmin0 akmax0 akmin0 all allocated alog alog10 amax0
amax1 amin0 amin1 amod anint any asin asind associated atan atan2 atan2d atand
bitest bitl bitlr bitrl bjtest bit_size bktest break btest cabs ccos cdabs cdcos
cdexp cdlog cdsin cdsqrt ceiling cexp char clog cmplx conjg cos cosd cosh count
cpu_time cshift csin csqrt dabs dacos dacosd dasin dasind datan datan2 datan2d
datand date date_and_time dble dcmplx dconjg dcos dcosd dcosh dcotan ddim dexp
dfloat dflotk dfloti dflotj digits dim dimag dint dlog dlog10 dmax1 dmin1 dmod
dnint dot_product dprod dreal dsign dsin dsind dsinh dsqrt dtan dtand dtanh
eoshift epsilon errsns exp exponent float floati floatj floatk floor fraction
free huge iabs iachar iand ibclr ibits ibset ichar idate idim idint idnint ieor
ifix iiabs iiand iibclr iibits iibset iidim iidint iidnnt iieor iifix iint iior
iiqint iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod index
inint inot int int1 int2 int4 int8 iqint iqnint ior ishft ishftc isign isnan
izext jiand jibclr jibits jibset jidim jidint jidnnt jieor jifix jint jior jiqint
jiqnnt jishft jishftc jisign jmax0 jmax1 jmin0 jmin1 jmod jnint jnot jzext kiabs
kiand kibclr kibits kibset kidim kidint kidnnt kieor kifix kind kint kior kishft
kishftc kisign kmax0 kmax1 kmin0 kmin1 kmod knint knot kzext lbound leadz len
len_trim lenlge lge lgt lle llt log log10 logical lshift malloc matmul max max0
max1 maxexponent maxloc maxval merge min min0 min1 minexponent minloc minval
mod modulo mvbits nearest nint not nworkers number_of_processors pack popcnt
poppar precision present product radix random random_number random_seed range
real repeat reshape rrspacing rshift scale scan secnds selected_int_kind
selected_real_kind set_exponent shape sign sin sind sinh size sizeof sngl snglq
spacing spread sqrt sum system_clock tan tand tanh tiny transfer transpose trim
ubound unpack verify</Keywords>
<Keywords name="Words3">cdabs cdcos cdexp cdlog cdsin cdsqrt cotan
cotand dcmplx dconjg dcotan dcotand decode dimag dll_export dll_import doublecomplex
dreal dvchk encode find flen flush getarg getcharqq getcl getdat getenv gettim
hfix ibchng identifier imag int1 int2 int4 intc intrup invalop iostat_msg isha
ishc ishl jfix lacfar locking locnear map nargs nbreak ndperr ndpexc offset
ovefl peekcharqq precfill prompt qabs qacos qacosd qasin qasind qatan qatand
qatan2 qcmplx qconjg qcos qcosd qcosh qdim qexp qext qextd qfloat qimag qlog
qlog10 qmax1 qmin1 qmod qreal qsign qsin qsind qsinh qsqrt qtan qtand qtanh
ran rand randu rewrite segment setdat settim system timer undfl unlock union
val virtual volatile zabs zcos zexp zlog zsin zsqrt</Keywords>
<Keywords name="Words4">eq and or ne ge gt le lt true
false</Keywords>
</KeywordLists>
<Styles>
<WordsStyle name="DEFAULT" styleID="11" fgColor="000000" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="FOLDEROPEN" styleID="12" fgColor="0000FF"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="FOLDERCLOSE" styleID="13" fgColor="0000FF"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD1" styleID="5" fgColor="0000FF" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD2" styleID="6" fgColor="8000FF" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD3" styleID="7" fgColor="0080C0" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD4" styleID="8" fgColor="808080" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="COMMENT" styleID="1" fgColor="000000" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="COMMENT LINE" styleID="2" fgColor="008000"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="NUMBER" styleID="4" fgColor="FF0000" bgColor="FFFFFF"
fontName="" fontStyle="0" />
<WordsStyle name="OPERATOR" styleID="10" fgColor="000080"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER1" styleID="14" fgColor="8000FF"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER2" styleID="15" fgColor="8000FF"
bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER3" styleID="16" fgColor="000000"
bgColor="FFFFFF" fontName="" fontStyle="0" />
</Styles>
</UserLang>
It's not perfect, but it's pretty good.
Regards.
Greg
______________________________________________________________________
You are receiving this email because you elected to monitor this forum.
To stop monitoring this forum, login to SourceForge.net and visit:
https://sourceforge.net/forum/unmonitor.php?forum_id=331753