Formatting .json doc files with prettier

src/docs/ABORT.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ABORT",
-    "docstr":"`ABORT` — Abort the program\n\n### Description\n`ABORT` causes immediate termination of the program.  On operating\nsystems that support a core dump, `ABORT` will produce a core dump. \nIt will also print a backtrace, unless `-fno-backtrace` is given.\n\n\n\n### Syntax\n`CALL ABORT`\n\n\n### Return value\nDoes not return.\n\n\n\n### Example\n```\n\n\nprogram test_abort\n\n  integer :: i = 1, j = 2\n\n  if (i /= j) call abort\n\nend program test_abort\n\n```\n\n\n\n### Standard\nGNU extension\n\n\n\n### Class\nSubroutine\n\n\n\n### See also\n<a href=\"EXIT.html#EXIT\">EXIT</a>, <a href=\"KILL.html#KILL\">KILL</a>, <a href=\"BACKTRACE.html#BACKTRACE\">BACKTRACE</a>\n\n   "
-}
+  "keyword": "ABORT",
+  "docstr": "`ABORT` — Abort the program\n\n### Description\n`ABORT` causes immediate termination of the program.  On operating\nsystems that support a core dump, `ABORT` will produce a core dump. \nIt will also print a backtrace, unless `-fno-backtrace` is given.\n\n\n\n### Syntax\n`CALL ABORT`\n\n\n### Return value\nDoes not return.\n\n\n\n### Example\n```\n\n\nprogram test_abort\n\n  integer :: i = 1, j = 2\n\n  if (i /= j) call abort\n\nend program test_abort\n\n```\n\n\n\n### Standard\nGNU extension\n\n\n\n### Class\nSubroutine\n\n\n\n### See also\n<a href=\"EXIT.html#EXIT\">EXIT</a>, <a href=\"KILL.html#KILL\">KILL</a>, <a href=\"BACKTRACE.html#BACKTRACE\">BACKTRACE</a>\n\n   "
+}

src/docs/ABS.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ABS",
-    "docstr":"`ABS` — Absolute value\n\n### Description\n`ABS(A)` computes the absolute value of `A`.\n\n\n\n### Syntax\n`RESULT = ABS(A)`\n\n\n### Arguments\n\n     \n,\n`REAL`, or `COMPLEX`.\n\n\n\n\n\n\n### Return value\nThe return value is of the same type and\nkind as the argument except the return value is `REAL` for a\n`COMPLEX` argument.\n\n\n\n### Example\n```\n\n\nprogram test_abs\n\n  integer :: i = -1\n\n  real :: x = -1.e0\n\n  complex :: z = (-1.e0,0.e0)\n\n  i = abs(i)\n\n  x = abs(x)\n\n  x = abs(z)\n\nend program test_abs\n\n```\n\n\n\n### Specific names\n\n     \n | Name             | Argument             | Return type        | Standard\n\n | `ABS(A)`    | `REAL(4) A`     | `REAL(4)`     | Fortran 77 and later\n\n | `CABS(A)`   | `COMPLEX(4) A`  | `REAL(4)`     | Fortran 77 and later\n\n | `DABS(A)`   | `REAL(8) A`     | `REAL(8)`     | Fortran 77 and later\n\n | `IABS(A)`   | `INTEGER(4) A`  | `INTEGER(4)`  | Fortran 77 and later\n\n | `ZABS(A)`   | `COMPLEX(8) A`  | `COMPLEX(8)`  | GNU extension\n\n | `CDABS(A)`  | `COMPLEX(8) A`  | `COMPLEX(8)`  | GNU extension\n\n\n\n\n\n### Standard\nFortran 77 and later, has overloads that are GNU extensions\n\n\n\n### Class\nElemental function\n\n\n"
-}
+  "keyword": "ABS",
+  "docstr": "`ABS` — Absolute value\n\n### Description\n`ABS(A)` computes the absolute value of `A`.\n\n\n\n### Syntax\n`RESULT = ABS(A)`\n\n\n### Arguments\n\n     \n,\n`REAL`, or `COMPLEX`.\n\n\n\n\n\n\n### Return value\nThe return value is of the same type and\nkind as the argument except the return value is `REAL` for a\n`COMPLEX` argument.\n\n\n\n### Example\n```\n\n\nprogram test_abs\n\n  integer :: i = -1\n\n  real :: x = -1.e0\n\n  complex :: z = (-1.e0,0.e0)\n\n  i = abs(i)\n\n  x = abs(x)\n\n  x = abs(z)\n\nend program test_abs\n\n```\n\n\n\n### Specific names\n\n     \n | Name             | Argument             | Return type        | Standard\n\n | `ABS(A)`    | `REAL(4) A`     | `REAL(4)`     | Fortran 77 and later\n\n | `CABS(A)`   | `COMPLEX(4) A`  | `REAL(4)`     | Fortran 77 and later\n\n | `DABS(A)`   | `REAL(8) A`     | `REAL(8)`     | Fortran 77 and later\n\n | `IABS(A)`   | `INTEGER(4) A`  | `INTEGER(4)`  | Fortran 77 and later\n\n | `ZABS(A)`   | `COMPLEX(8) A`  | `COMPLEX(8)`  | GNU extension\n\n | `CDABS(A)`  | `COMPLEX(8) A`  | `COMPLEX(8)`  | GNU extension\n\n\n\n\n\n### Standard\nFortran 77 and later, has overloads that are GNU extensions\n\n\n\n### Class\nElemental function\n\n\n"
+}

src/docs/ACCESS.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ACCESS",
-    "docstr":"`ACCESS` — Checks file access modes\n\n### Description\n`ACCESS(NAME, MODE)` checks whether the file `NAME`\nexists, is readable, writable or executable. Except for the\nexecutable check, `ACCESS` can be replaced by\nFortran 95's `INQUIRE`.\n\n\n\n### Syntax\n`RESULT = ACCESS(NAME, MODE)`\n\n\n### Arguments\n\n     \n of default kind with the\nfile name. Tailing blank are ignored unless the character `achar(0)`is present, then all characters up to and excluding `achar(0)` are\nused as file name. \n\n | `MODE`  | Scalar `CHARACTER` of default kind with the\nfile access mode, may be any concatenation of `\"r\"` (readable),\n`\"w\"` (writable) and `\"x\"` (executable), or `\" \"` to check\nfor existence.\n\n\n\n\n\n\n### Return value\nReturns a scalar `INTEGER`, which is `0` if the file is\naccessible in the given mode; otherwise or if an invalid argument\nhas been given for `MODE` the value `1` is returned.\n\n\n\n### Example\n```\n\n\nprogram access_test\n\n  implicit none\n\n  character(len=*), parameter :: file  = 'test.dat'\n\n  character(len=*), parameter :: file2 = 'test.dat  '//achar(0)\n\n  if(access(file,' ') == 0) print *, trim(file),' is exists'\n\n  if(access(file,'r') == 0) print *, trim(file),' is readable'\n\n  if(access(file,'w') == 0) print *, trim(file),' is writable'\n\n  if(access(file,'x') == 0) print *, trim(file),' is executable'\n\n  if(access(file2,'rwx') == 0) &\n\n    print *, trim(file2),' is readable, writable and executable'\n\nend program access_test\n\n```\n\n\n\n### Specific names\n\n\n\n### Standard\nGNU extension\n\n\n\n### Class\nInquiry function\n\n\n\n### See also\n\n"
-}
+  "keyword": "ACCESS",
+  "docstr": "`ACCESS` — Checks file access modes\n\n### Description\n`ACCESS(NAME, MODE)` checks whether the file `NAME`\nexists, is readable, writable or executable. Except for the\nexecutable check, `ACCESS` can be replaced by\nFortran 95's `INQUIRE`.\n\n\n\n### Syntax\n`RESULT = ACCESS(NAME, MODE)`\n\n\n### Arguments\n\n     \n of default kind with the\nfile name. Tailing blank are ignored unless the character `achar(0)`is present, then all characters up to and excluding `achar(0)` are\nused as file name. \n\n | `MODE`  | Scalar `CHARACTER` of default kind with the\nfile access mode, may be any concatenation of `\"r\"` (readable),\n`\"w\"` (writable) and `\"x\"` (executable), or `\" \"` to check\nfor existence.\n\n\n\n\n\n\n### Return value\nReturns a scalar `INTEGER`, which is `0` if the file is\naccessible in the given mode; otherwise or if an invalid argument\nhas been given for `MODE` the value `1` is returned.\n\n\n\n### Example\n```\n\n\nprogram access_test\n\n  implicit none\n\n  character(len=*), parameter :: file  = 'test.dat'\n\n  character(len=*), parameter :: file2 = 'test.dat  '//achar(0)\n\n  if(access(file,' ') == 0) print *, trim(file),' is exists'\n\n  if(access(file,'r') == 0) print *, trim(file),' is readable'\n\n  if(access(file,'w') == 0) print *, trim(file),' is writable'\n\n  if(access(file,'x') == 0) print *, trim(file),' is executable'\n\n  if(access(file2,'rwx') == 0) &\n\n    print *, trim(file2),' is readable, writable and executable'\n\nend program access_test\n\n```\n\n\n\n### Specific names\n\n\n\n### Standard\nGNU extension\n\n\n\n### Class\nInquiry function\n\n\n\n### See also\n\n"
+}

src/docs/ACHAR.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ACHAR",
-    "docstr":"`ACHAR` — Character in <acronym>ASCII</acronym> collating sequence\n\n### Description\n`ACHAR(I)` returns the character located at position `I`in the <acronym>ASCII</acronym> collating sequence.\n\n\n\n### Syntax\n`RESULT = ACHAR(I [, KIND])`\n\n\n### Arguments\n\n     \n. \n\n | `KIND`  | (Optional) An `INTEGER` initialization\nexpression indicating the kind parameter of the result.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` with a length of one. \nIf the `KIND` argument is present, the return value is of the\nspecified kind and of the default kind otherwise.\n\n\n\n### Example\n```\n\n\nprogram test_achar\n\n  character c\n\n  c = achar(32)\n\nend program test_achar\n\n```\n\n\n\n### Notes\nSee <a href=\"ICHAR.html#ICHAR\">ICHAR</a> for a discussion of converting between numerical values\nand formatted string representations.\n\n\n\n### Standard\nFortran 77 and later, with `KIND` argument Fortran 2003 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"CHAR.html#CHAR\">CHAR</a>, <a href=\"IACHAR.html#IACHAR\">IACHAR</a>, <a href=\"ICHAR.html#ICHAR\">ICHAR</a>\n\n   "
-}
+  "keyword": "ACHAR",
+  "docstr": "`ACHAR` — Character in <acronym>ASCII</acronym> collating sequence\n\n### Description\n`ACHAR(I)` returns the character located at position `I`in the <acronym>ASCII</acronym> collating sequence.\n\n\n\n### Syntax\n`RESULT = ACHAR(I [, KIND])`\n\n\n### Arguments\n\n     \n. \n\n | `KIND`  | (Optional) An `INTEGER` initialization\nexpression indicating the kind parameter of the result.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` with a length of one. \nIf the `KIND` argument is present, the return value is of the\nspecified kind and of the default kind otherwise.\n\n\n\n### Example\n```\n\n\nprogram test_achar\n\n  character c\n\n  c = achar(32)\n\nend program test_achar\n\n```\n\n\n\n### Notes\nSee <a href=\"ICHAR.html#ICHAR\">ICHAR</a> for a discussion of converting between numerical values\nand formatted string representations.\n\n\n\n### Standard\nFortran 77 and later, with `KIND` argument Fortran 2003 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"CHAR.html#CHAR\">CHAR</a>, <a href=\"IACHAR.html#IACHAR\">IACHAR</a>, <a href=\"ICHAR.html#ICHAR\">ICHAR</a>\n\n   "
+}

src/docs/ACOS.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ACOS",
-    "docstr":"`ACOS` — Arccosine function\n\n### Description\n`ACOS(X)` computes the arccosine of `X` (inverse of `COS(X)`).\n\n\n\n### Syntax\n`RESULT = ACOS(X)`\n\n\n### Arguments\n\n     \n with a magnitude that is\nless than or equal to one - or the type shall be `COMPLEX`.\n\n\n\n\n\n\n### Return value\nThe return value is of the same type and kind as `X`. \nThe real part of the result is in radians and lies in the range\n0 \\leq \\Re \\acos(x) \\leq \\pi.\n\n\n\n### Example\n```\n\n\nprogram test_acos\n\n  real(8) :: x = 0.866_8\n\n  x = acos(x)\n\nend program test_acos\n\n```\n\n\n\n### Specific names\n\n     \n | Name             | Argument          | Return type      | Standard\n\n | `ACOS(X)`   | `REAL(4) X`  | `REAL(4)`   | Fortran 77 and later\n\n | `DACOS(X)`  | `REAL(8) X`  | `REAL(8)`   | Fortran 77 and later\n\n\n\n\n\n\n### Standard\nFortran 77 and later, for a complex argument Fortran 2008 or later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\nInverse function: <a href=\"COS.html#COS\">COS</a>\n\n   "
-}
+  "keyword": "ACOS",
+  "docstr": "`ACOS` — Arccosine function\n\n### Description\n`ACOS(X)` computes the arccosine of `X` (inverse of `COS(X)`).\n\n\n\n### Syntax\n`RESULT = ACOS(X)`\n\n\n### Arguments\n\n     \n with a magnitude that is\nless than or equal to one - or the type shall be `COMPLEX`.\n\n\n\n\n\n\n### Return value\nThe return value is of the same type and kind as `X`. \nThe real part of the result is in radians and lies in the range\n0 \\leq \\Re \\acos(x) \\leq \\pi.\n\n\n\n### Example\n```\n\n\nprogram test_acos\n\n  real(8) :: x = 0.866_8\n\n  x = acos(x)\n\nend program test_acos\n\n```\n\n\n\n### Specific names\n\n     \n | Name             | Argument          | Return type      | Standard\n\n | `ACOS(X)`   | `REAL(4) X`  | `REAL(4)`   | Fortran 77 and later\n\n | `DACOS(X)`  | `REAL(8) X`  | `REAL(8)`   | Fortran 77 and later\n\n\n\n\n\n\n### Standard\nFortran 77 and later, for a complex argument Fortran 2008 or later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\nInverse function: <a href=\"COS.html#COS\">COS</a>\n\n   "
+}

src/docs/ACOSD.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ACOSD",
-    "docstr":"`ACOSD` — Arccosine function, degrees\n\n### Description\nACOSD(X) computes the arccosine of X in degrees (inverse of COSD(X)).\nThis function is for compatibility only and should be avoided in favor of standard constructs wherever possible.\n### Standard\nGNU Extension, enabled with -fdec-math\n### Class\nElemental function\n### Syntax\nRESULT = ACOSD(X)\n### Arguments\n- X: The type shall either be REAL with a magnitude that is less than or equal to one - or the type shall be COMPLEX.\n### Return value\nThe return value is of the same type and kind as X. The real part of the result is in degrees and lies in the range 0 \\leq \\Re \\acos(x) \\leq 180.\n"
+  "keyword": "ACOSD",
+  "docstr": "`ACOSD` — Arccosine function, degrees\n\n### Description\nACOSD(X) computes the arccosine of X in degrees (inverse of COSD(X)).\nThis function is for compatibility only and should be avoided in favor of standard constructs wherever possible.\n### Standard\nGNU Extension, enabled with -fdec-math\n### Class\nElemental function\n### Syntax\nRESULT = ACOSD(X)\n### Arguments\n- X: The type shall either be REAL with a magnitude that is less than or equal to one - or the type shall be COMPLEX.\n### Return value\nThe return value is of the same type and kind as X. The real part of the result is in degrees and lies in the range 0 \\leq \\Re \\acos(x) \\leq 180.\n"
 }

src/docs/ACOSH.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ACOSH",
-    "docstr":"`ACOSH` — Inverse hyperbolic cosine function\n\n### Description\n`ACOSH(X)` computes the inverse hyperbolic cosine of `X`.\n\n\n\n### Syntax\n`RESULT = ACOSH(X)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value has the same type and kind as `X`. If `X` is\ncomplex, the imaginary part of the result is in radians and lies between\n 0 \\leq \\Im \\acosh(x) \\leq \\pi.\n\n\n\n### Example\n```\n\n\nPROGRAM test_acosh\n\n  REAL(8), DIMENSION(3) :: x = (/ 1.0, 2.0, 3.0 /)\n\n  WRITE (*,*) ACOSH(x)\n\nEND PROGRAM\n\n```\n\n\n\n### Specific names\n\n     \n | Name              | Argument           | Return type        | Standard\n\n | `DACOSH(X)`  | `REAL(8) X`   | `REAL(8)`     | GNU extension\n\n\n\n\n\n\n### Standard\nFortran 2008 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\nInverse function: <a href=\"COSH.html#COSH\">COSH</a>\n"
-}
+  "keyword": "ACOSH",
+  "docstr": "`ACOSH` — Inverse hyperbolic cosine function\n\n### Description\n`ACOSH(X)` computes the inverse hyperbolic cosine of `X`.\n\n\n\n### Syntax\n`RESULT = ACOSH(X)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value has the same type and kind as `X`. If `X` is\ncomplex, the imaginary part of the result is in radians and lies between\n 0 \\leq \\Im \\acosh(x) \\leq \\pi.\n\n\n\n### Example\n```\n\n\nPROGRAM test_acosh\n\n  REAL(8), DIMENSION(3) :: x = (/ 1.0, 2.0, 3.0 /)\n\n  WRITE (*,*) ACOSH(x)\n\nEND PROGRAM\n\n```\n\n\n\n### Specific names\n\n     \n | Name              | Argument           | Return type        | Standard\n\n | `DACOSH(X)`  | `REAL(8) X`   | `REAL(8)`     | GNU extension\n\n\n\n\n\n\n### Standard\nFortran 2008 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\nInverse function: <a href=\"COSH.html#COSH\">COSH</a>\n"
+}

src/docs/ADJUSTL.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ADJUSTL",
-    "docstr":"`ADJUSTL` — Left adjust a string\n\n### Description\n`ADJUSTL(STRING)` will left adjust a string by removing leading spaces. \nSpaces are inserted at the end of the string as needed.\n\n\n\n### Syntax\n`RESULT = ADJUSTL(STRING)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` and of the same kind as\n`STRING` where leading spaces are removed and the same number of\nspaces are inserted on the end of `STRING`.\n\n\n\n### Example\n```\n\n\nprogram test_adjustl\n\n  character(len=20) :: str = '   gfortran'\n\n  str = adjustl(str)\n\n  print *, str\n\nend program test_adjustl\n\n```\n\n\n\n### Standard\nFortran 90 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"ADJUSTR.html#ADJUSTR\">ADJUSTR</a>, <a href=\"TRIM.html#TRIM\">TRIM</a>\n"
-}
+  "keyword": "ADJUSTL",
+  "docstr": "`ADJUSTL` — Left adjust a string\n\n### Description\n`ADJUSTL(STRING)` will left adjust a string by removing leading spaces. \nSpaces are inserted at the end of the string as needed.\n\n\n\n### Syntax\n`RESULT = ADJUSTL(STRING)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` and of the same kind as\n`STRING` where leading spaces are removed and the same number of\nspaces are inserted on the end of `STRING`.\n\n\n\n### Example\n```\n\n\nprogram test_adjustl\n\n  character(len=20) :: str = '   gfortran'\n\n  str = adjustl(str)\n\n  print *, str\n\nend program test_adjustl\n\n```\n\n\n\n### Standard\nFortran 90 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"ADJUSTR.html#ADJUSTR\">ADJUSTR</a>, <a href=\"TRIM.html#TRIM\">TRIM</a>\n"
+}

src/docs/ADJUSTR.json

@@ -1,4 +1,4 @@
 {
-    "keyword":"ADJUSTR",
-    "docstr":"`ADJUSTR` — Right adjust a string\n\n### Description\n`ADJUSTR(STRING)` will right adjust a string by removing trailing spaces. \nSpaces are inserted at the start of the string as needed.\n\n\n\n### Syntax\n`RESULT = ADJUSTR(STRING)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` and of the same kind as\n`STRING` where trailing spaces are removed and the same number of\nspaces are inserted at the start of `STRING`.\n\n\n\n### Example\n```\n\n\nprogram test_adjustr\n\n  character(len=20) :: str = 'gfortran'\n\n  str = adjustr(str)\n\n  print *, str\n\nend program test_adjustr\n\n```\n\n\n\n### Standard\nFortran 95 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"ADJUSTL.html#ADJUSTL\">ADJUSTL</a>, <a href=\"TRIM.html#TRIM\">TRIM</a>\n"
-}
+  "keyword": "ADJUSTR",
+  "docstr": "`ADJUSTR` — Right adjust a string\n\n### Description\n`ADJUSTR(STRING)` will right adjust a string by removing trailing spaces. \nSpaces are inserted at the start of the string as needed.\n\n\n\n### Syntax\n`RESULT = ADJUSTR(STRING)`\n\n\n### Arguments\n\n     \n.\n\n\n\n\n\n\n### Return value\nThe return value is of type `CHARACTER` and of the same kind as\n`STRING` where trailing spaces are removed and the same number of\nspaces are inserted at the start of `STRING`.\n\n\n\n### Example\n```\n\n\nprogram test_adjustr\n\n  character(len=20) :: str = 'gfortran'\n\n  str = adjustr(str)\n\n  print *, str\n\nend program test_adjustr\n\n```\n\n\n\n### Standard\nFortran 95 and later\n\n\n\n### Class\nElemental function\n\n\n\n### See also\n<a href=\"ADJUSTL.html#ADJUSTL\">ADJUSTL</a>, <a href=\"TRIM.html#TRIM\">TRIM</a>\n"
+}