← Back
Editing: fortran-BY2IpvbP.chunk.mjs.map
{"version":3,"file":"fortran-BY2IpvbP.chunk.mjs","sources":["../node_modules/highlight.js/lib/languages/fortran.js"],"sourcesContent":["/*\nLanguage: Fortran\nAuthor: Anthony Scemama <scemama@irsamc.ups-tlse.fr>\nWebsite: https://en.wikipedia.org/wiki/Fortran\nCategory: scientific\n*/\n\n/** @type LanguageFn */\nfunction fortran(hljs) {\n const regex = hljs.regex;\n const PARAMS = {\n className: 'params',\n begin: '\\\\(',\n end: '\\\\)'\n };\n\n const COMMENT = { variants: [\n hljs.COMMENT('!', '$', { relevance: 0 }),\n // allow FORTRAN 77 style comments\n hljs.COMMENT('^C[ ]', '$', { relevance: 0 }),\n hljs.COMMENT('^C$', '$', { relevance: 0 })\n ] };\n\n // regex in both fortran and irpf90 should match\n const OPTIONAL_NUMBER_SUFFIX = /(_[a-z_\\d]+)?/;\n const OPTIONAL_NUMBER_EXP = /([de][+-]?\\d+)?/;\n const NUMBER = {\n className: 'number',\n variants: [\n { begin: regex.concat(/\\b\\d+/, /\\.(\\d*)/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },\n { begin: regex.concat(/\\b\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },\n { begin: regex.concat(/\\.\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) }\n ],\n relevance: 0\n };\n\n const FUNCTION_DEF = {\n className: 'function',\n beginKeywords: 'subroutine function program',\n illegal: '[${=\\\\n]',\n contains: [\n hljs.UNDERSCORE_TITLE_MODE,\n PARAMS\n ]\n };\n\n const STRING = {\n className: 'string',\n relevance: 0,\n variants: [\n hljs.APOS_STRING_MODE,\n hljs.QUOTE_STRING_MODE\n ]\n };\n\n const KEYWORDS = [\n \"kind\",\n \"do\",\n \"concurrent\",\n \"local\",\n \"shared\",\n \"while\",\n \"private\",\n \"call\",\n \"intrinsic\",\n \"where\",\n \"elsewhere\",\n \"type\",\n \"endtype\",\n \"endmodule\",\n \"endselect\",\n \"endinterface\",\n \"end\",\n \"enddo\",\n \"endif\",\n \"if\",\n \"forall\",\n \"endforall\",\n \"only\",\n \"contains\",\n \"default\",\n \"return\",\n \"stop\",\n \"then\",\n \"block\",\n \"endblock\",\n \"endassociate\",\n \"public\",\n \"subroutine|10\",\n \"function\",\n \"program\",\n \".and.\",\n \".or.\",\n \".not.\",\n \".le.\",\n \".eq.\",\n \".ge.\",\n \".gt.\",\n \".lt.\",\n \"goto\",\n \"save\",\n \"else\",\n \"use\",\n \"module\",\n \"select\",\n \"case\",\n \"access\",\n \"blank\",\n \"direct\",\n \"exist\",\n \"file\",\n \"fmt\",\n \"form\",\n \"formatted\",\n \"iostat\",\n \"name\",\n \"named\",\n \"nextrec\",\n \"number\",\n \"opened\",\n \"rec\",\n \"recl\",\n \"sequential\",\n \"status\",\n \"unformatted\",\n \"unit\",\n \"continue\",\n \"format\",\n \"pause\",\n \"cycle\",\n \"exit\",\n \"c_null_char\",\n \"c_alert\",\n \"c_backspace\",\n \"c_form_feed\",\n \"flush\",\n \"wait\",\n \"decimal\",\n \"round\",\n \"iomsg\",\n \"synchronous\",\n \"nopass\",\n \"non_overridable\",\n \"pass\",\n \"protected\",\n \"volatile\",\n \"abstract\",\n \"extends\",\n \"import\",\n \"non_intrinsic\",\n \"value\",\n \"deferred\",\n \"generic\",\n \"final\",\n \"enumerator\",\n \"class\",\n \"associate\",\n \"bind\",\n \"enum\",\n \"c_int\",\n \"c_short\",\n \"c_long\",\n \"c_long_long\",\n \"c_signed_char\",\n \"c_size_t\",\n \"c_int8_t\",\n \"c_int16_t\",\n \"c_int32_t\",\n \"c_int64_t\",\n \"c_int_least8_t\",\n \"c_int_least16_t\",\n \"c_int_least32_t\",\n \"c_int_least64_t\",\n \"c_int_fast8_t\",\n \"c_int_fast16_t\",\n \"c_int_fast32_t\",\n \"c_int_fast64_t\",\n \"c_intmax_t\",\n \"C_intptr_t\",\n \"c_float\",\n \"c_double\",\n \"c_long_double\",\n \"c_float_complex\",\n \"c_double_complex\",\n \"c_long_double_complex\",\n \"c_bool\",\n \"c_char\",\n \"c_null_ptr\",\n \"c_null_funptr\",\n \"c_new_line\",\n \"c_carriage_return\",\n \"c_horizontal_tab\",\n \"c_vertical_tab\",\n \"iso_c_binding\",\n \"c_loc\",\n \"c_funloc\",\n \"c_associated\",\n \"c_f_pointer\",\n \"c_ptr\",\n \"c_funptr\",\n \"iso_fortran_env\",\n \"character_storage_size\",\n \"error_unit\",\n \"file_storage_size\",\n \"input_unit\",\n \"iostat_end\",\n \"iostat_eor\",\n \"numeric_storage_size\",\n \"output_unit\",\n \"c_f_procpointer\",\n \"ieee_arithmetic\",\n \"ieee_support_underflow_control\",\n \"ieee_get_underflow_mode\",\n \"ieee_set_underflow_mode\",\n \"newunit\",\n \"contiguous\",\n \"recursive\",\n \"pad\",\n \"position\",\n \"action\",\n \"delim\",\n \"readwrite\",\n \"eor\",\n \"advance\",\n \"nml\",\n \"interface\",\n \"procedure\",\n \"namelist\",\n \"include\",\n \"sequence\",\n \"elemental\",\n \"pure\",\n \"impure\",\n \"integer\",\n \"real\",\n \"character\",\n \"complex\",\n \"logical\",\n \"codimension\",\n \"dimension\",\n \"allocatable|10\",\n \"parameter\",\n \"external\",\n \"implicit|10\",\n \"none\",\n \"double\",\n \"precision\",\n \"assign\",\n \"intent\",\n \"optional\",\n \"pointer\",\n \"target\",\n \"in\",\n \"out\",\n \"common\",\n \"equivalence\",\n \"data\"\n ];\n const LITERALS = [\n \".False.\",\n \".True.\"\n ];\n const BUILT_INS = [\n \"alog\",\n \"alog10\",\n \"amax0\",\n \"amax1\",\n \"amin0\",\n \"amin1\",\n \"amod\",\n \"cabs\",\n \"ccos\",\n \"cexp\",\n \"clog\",\n \"csin\",\n \"csqrt\",\n \"dabs\",\n \"dacos\",\n \"dasin\",\n \"datan\",\n \"datan2\",\n \"dcos\",\n \"dcosh\",\n \"ddim\",\n \"dexp\",\n \"dint\",\n \"dlog\",\n \"dlog10\",\n \"dmax1\",\n \"dmin1\",\n \"dmod\",\n \"dnint\",\n \"dsign\",\n \"dsin\",\n \"dsinh\",\n \"dsqrt\",\n \"dtan\",\n \"dtanh\",\n \"float\",\n \"iabs\",\n \"idim\",\n \"idint\",\n \"idnint\",\n \"ifix\",\n \"isign\",\n \"max0\",\n \"max1\",\n \"min0\",\n \"min1\",\n \"sngl\",\n \"algama\",\n \"cdabs\",\n \"cdcos\",\n \"cdexp\",\n \"cdlog\",\n \"cdsin\",\n \"cdsqrt\",\n \"cqabs\",\n \"cqcos\",\n \"cqexp\",\n \"cqlog\",\n \"cqsin\",\n \"cqsqrt\",\n \"dcmplx\",\n \"dconjg\",\n \"derf\",\n \"derfc\",\n \"dfloat\",\n \"dgamma\",\n \"dimag\",\n \"dlgama\",\n \"iqint\",\n \"qabs\",\n \"qacos\",\n \"qasin\",\n \"qatan\",\n \"qatan2\",\n \"qcmplx\",\n \"qconjg\",\n \"qcos\",\n \"qcosh\",\n \"qdim\",\n \"qerf\",\n \"qerfc\",\n \"qexp\",\n \"qgamma\",\n \"qimag\",\n \"qlgama\",\n \"qlog\",\n \"qlog10\",\n \"qmax1\",\n \"qmin1\",\n \"qmod\",\n \"qnint\",\n \"qsign\",\n \"qsin\",\n \"qsinh\",\n \"qsqrt\",\n \"qtan\",\n \"qtanh\",\n \"abs\",\n \"acos\",\n \"aimag\",\n \"aint\",\n \"anint\",\n \"asin\",\n \"atan\",\n \"atan2\",\n \"char\",\n \"cmplx\",\n \"conjg\",\n \"cos\",\n \"cosh\",\n \"exp\",\n \"ichar\",\n \"index\",\n \"int\",\n \"log\",\n \"log10\",\n \"max\",\n \"min\",\n \"nint\",\n \"sign\",\n \"sin\",\n \"sinh\",\n \"sqrt\",\n \"tan\",\n \"tanh\",\n \"print\",\n \"write\",\n \"dim\",\n \"lge\",\n \"lgt\",\n \"lle\",\n \"llt\",\n \"mod\",\n \"nullify\",\n \"allocate\",\n \"deallocate\",\n \"adjustl\",\n \"adjustr\",\n \"all\",\n \"allocated\",\n \"any\",\n \"associated\",\n \"bit_size\",\n \"btest\",\n \"ceiling\",\n \"count\",\n \"cshift\",\n \"date_and_time\",\n \"digits\",\n \"dot_product\",\n \"eoshift\",\n \"epsilon\",\n \"exponent\",\n \"floor\",\n \"fraction\",\n \"huge\",\n \"iand\",\n \"ibclr\",\n \"ibits\",\n \"ibset\",\n \"ieor\",\n \"ior\",\n \"ishft\",\n \"ishftc\",\n \"lbound\",\n \"len_trim\",\n \"matmul\",\n \"maxexponent\",\n \"maxloc\",\n \"maxval\",\n \"merge\",\n \"minexponent\",\n \"minloc\",\n \"minval\",\n \"modulo\",\n \"mvbits\",\n \"nearest\",\n \"pack\",\n \"present\",\n \"product\",\n \"radix\",\n \"random_number\",\n \"random_seed\",\n \"range\",\n \"repeat\",\n \"reshape\",\n \"rrspacing\",\n \"scale\",\n \"scan\",\n \"selected_int_kind\",\n \"selected_real_kind\",\n \"set_exponent\",\n \"shape\",\n \"size\",\n \"spacing\",\n \"spread\",\n \"sum\",\n \"system_clock\",\n \"tiny\",\n \"transpose\",\n \"trim\",\n \"ubound\",\n \"unpack\",\n \"verify\",\n \"achar\",\n \"iachar\",\n \"transfer\",\n \"dble\",\n \"entry\",\n \"dprod\",\n \"cpu_time\",\n \"command_argument_count\",\n \"get_command\",\n \"get_command_argument\",\n \"get_environment_variable\",\n \"is_iostat_end\",\n \"ieee_arithmetic\",\n \"ieee_support_underflow_control\",\n \"ieee_get_underflow_mode\",\n \"ieee_set_underflow_mode\",\n \"is_iostat_eor\",\n \"move_alloc\",\n \"new_line\",\n \"selected_char_kind\",\n \"same_type_as\",\n \"extends_type_of\",\n \"acosh\",\n \"asinh\",\n \"atanh\",\n \"bessel_j0\",\n \"bessel_j1\",\n \"bessel_jn\",\n \"bessel_y0\",\n \"bessel_y1\",\n \"bessel_yn\",\n \"erf\",\n \"erfc\",\n \"erfc_scaled\",\n \"gamma\",\n \"log_gamma\",\n \"hypot\",\n \"norm2\",\n \"atomic_define\",\n \"atomic_ref\",\n \"execute_command_line\",\n \"leadz\",\n \"trailz\",\n \"storage_size\",\n \"merge_bits\",\n \"bge\",\n \"bgt\",\n \"ble\",\n \"blt\",\n \"dshiftl\",\n \"dshiftr\",\n \"findloc\",\n \"iall\",\n \"iany\",\n \"iparity\",\n \"image_index\",\n \"lcobound\",\n \"ucobound\",\n \"maskl\",\n \"maskr\",\n \"num_images\",\n \"parity\",\n \"popcnt\",\n \"poppar\",\n \"shifta\",\n \"shiftl\",\n \"shiftr\",\n \"this_image\",\n \"sync\",\n \"change\",\n \"team\",\n \"co_broadcast\",\n \"co_max\",\n \"co_min\",\n \"co_sum\",\n \"co_reduce\"\n ];\n return {\n name: 'Fortran',\n case_insensitive: true,\n aliases: [\n 'f90',\n 'f95'\n ],\n keywords: {\n $pattern: /\\b[a-z][a-z0-9_]+\\b|\\.[a-z][a-z0-9_]+\\./,\n keyword: KEYWORDS,\n literal: LITERALS,\n built_in: BUILT_INS\n },\n illegal: /\\/\\*/,\n contains: [\n STRING,\n FUNCTION_DEF,\n // allow `C = value` for assignments so they aren't misdetected\n // as Fortran 77 style comments\n {\n begin: /^C\\s*=(?!=)/,\n relevance: 0\n },\n COMMENT,\n NUMBER\n ]\n };\n}\n\nmodule.exports = fortran;\n"],"names":["fortran","hljs","regex","PARAMS","COMMENT","OPTIONAL_NUMBER_SUFFIX","OPTIONAL_NUMBER_EXP","NUMBER","FUNCTION_DEF","STRING","fortran_1"],"mappings":"uCAQA,SAASA,EAAQC,EAAM,CACrB,MAAMC,EAAQD,EAAK,MACbE,EAAS,CACb,UAAW,SACX,MAAO,MACP,IAAK,OAGDC,EAAU,CAAE,SAAU,CAC1BH,EAAK,QAAQ,IAAK,IAAK,CAAE,UAAW,EAAG,EAEvCA,EAAK,QAAQ,QAAS,IAAK,CAAE,UAAW,EAAG,EAC3CA,EAAK,QAAQ,MAAO,IAAK,CAAE,UAAW,CAAC,CAAE,CAC7C,CAAG,EAGKI,EAAyB,gBACzBC,EAAsB,kBACtBC,EAAS,CACb,UAAW,SACX,SAAU,CACR,CAAE,MAAOL,EAAM,OAAO,QAAS,UAAWI,EAAqBD,CAAsB,CAAC,EACtF,CAAE,MAAOH,EAAM,OAAO,QAASI,EAAqBD,CAAsB,CAAC,EAC3E,CAAE,MAAOH,EAAM,OAAO,QAASI,EAAqBD,CAAsB,CAAC,GAE7E,UAAW,GAGPG,EAAe,CACnB,UAAW,WACX,cAAe,8BACf,QAAS,WACT,SAAU,CACRP,EAAK,sBACLE,CACN,GAGQM,EAAS,CACb,UAAW,SACX,UAAW,EACX,SAAU,CACRR,EAAK,iBACLA,EAAK,iBACX,GA4eE,MAAO,CACL,KAAM,UACN,iBAAkB,GAClB,QAAS,CACP,MACA,OAEF,SAAU,CACR,SAAU,0CACV,QAlfa,CACf,OACA,KACA,aACA,QACA,SACA,QACA,UACA,OACA,YACA,QACA,YACA,OACA,UACA,YACA,YACA,eACA,MACA,QACA,QACA,KACA,SACA,YACA,OACA,WACA,UACA,SACA,OACA,OACA,QACA,WACA,eACA,SACA,gBACA,WACA,UACA,QACA,OACA,QACA,OACA,OACA,OACA,OACA,OACA,OACA,OACA,OACA,MACA,SACA,SACA,OACA,SACA,QACA,SACA,QACA,OACA,MACA,OACA,YACA,SACA,OACA,QACA,UACA,SACA,SACA,MACA,OACA,aACA,SACA,cACA,OACA,WACA,SACA,QACA,QACA,OACA,cACA,UACA,cACA,cACA,QACA,OACA,UACA,QACA,QACA,cACA,SACA,kBACA,OACA,YACA,WACA,WACA,UACA,SACA,gBACA,QACA,WACA,UACA,QACA,aACA,QACA,YACA,OACA,OACA,QACA,UACA,SACA,cACA,gBACA,WACA,WACA,YACA,YACA,YACA,iBACA,kBACA,kBACA,kBACA,gBACA,iBACA,iBACA,iBACA,aACA,aACA,UACA,WACA,gBACA,kBACA,mBACA,wBACA,SACA,SACA,aACA,gBACA,aACA,oBACA,mBACA,iBACA,gBACA,QACA,WACA,eACA,cACA,QACA,WACA,kBACA,yBACA,aACA,oBACA,aACA,aACA,aACA,uBACA,cACA,kBACA,kBACA,iCACA,0BACA,0BACA,UACA,aACA,YACA,MACA,WACA,SACA,QACA,YACA,MACA,UACA,MACA,YACA,YACA,WACA,UACA,WACA,YACA,OACA,SACA,UACA,OACA,YACA,UACA,UACA,cACA,YACA,iBACA,YACA,WACA,cACA,OACA,SACA,YACA,SACA,SACA,WACA,UACA,SACA,KACA,MACA,SACA,cACA,QA0SE,QAxSa,CACf,UACA,UAuSE,SArSc,CAChB,OACA,SACA,QACA,QACA,QACA,QACA,OACA,OACA,OACA,OACA,OACA,OACA,QACA,OACA,QACA,QACA,QACA,SACA,OACA,QACA,OACA,OACA,OACA,OACA,SACA,QACA,QACA,OACA,QACA,QACA,OACA,QACA,QACA,OACA,QACA,QACA,OACA,OACA,QACA,SACA,OACA,QACA,OACA,OACA,OACA,OACA,OACA,SACA,QACA,QACA,QACA,QACA,QACA,SACA,QACA,QACA,QACA,QACA,QACA,SACA,SACA,SACA,OACA,QACA,SACA,SACA,QACA,SACA,QACA,OACA,QACA,QACA,QACA,SACA,SACA,SACA,OACA,QACA,OACA,OACA,QACA,OACA,SACA,QACA,SACA,OACA,SACA,QACA,QACA,OACA,QACA,QACA,OACA,QACA,QACA,OACA,QACA,MACA,OACA,QACA,OACA,QACA,OACA,OACA,QACA,OACA,QACA,QACA,MACA,OACA,MACA,QACA,QACA,MACA,MACA,QACA,MACA,MACA,OACA,OACA,MACA,OACA,OACA,MACA,OACA,QACA,QACA,MACA,MACA,MACA,MACA,MACA,MACA,UACA,WACA,aACA,UACA,UACA,MACA,YACA,MACA,aACA,WACA,QACA,UACA,QACA,SACA,gBACA,SACA,cACA,UACA,UACA,WACA,QACA,WACA,OACA,OACA,QACA,QACA,QACA,OACA,MACA,QACA,SACA,SACA,WACA,SACA,cACA,SACA,SACA,QACA,cACA,SACA,SACA,SACA,SACA,UACA,OACA,UACA,UACA,QACA,gBACA,cACA,QACA,SACA,UACA,YACA,QACA,OACA,oBACA,qBACA,eACA,QACA,OACA,UACA,SACA,MACA,eACA,OACA,YACA,OACA,SACA,SACA,SACA,QACA,SACA,WACA,OACA,QACA,QACA,WACA,yBACA,cACA,uBACA,2BACA,gBACA,kBACA,iCACA,0BACA,0BACA,gBACA,aACA,WACA,qBACA,eACA,kBACA,QACA,QACA,QACA,YACA,YACA,YACA,YACA,YACA,YACA,MACA,OACA,cACA,QACA,YACA,QACA,QACA,gBACA,aACA,uBACA,QACA,SACA,eACA,aACA,MACA,MACA,MACA,MACA,UACA,UACA,UACA,OACA,OACA,UACA,cACA,WACA,WACA,QACA,QACA,aACA,SACA,SACA,SACA,SACA,SACA,SACA,aACA,OACA,SACA,OACA,eACA,SACA,SACA,SACA,cAeA,QAAS,OACT,SAAU,CACRQ,EACAD,EAGA,CACE,MAAO,cACP,UAAW,GAEbJ,EACAG,CACN,EAEA,CAEA,OAAAG,EAAiBV","x_google_ignoreList":[0]}
Save File
Cancel