<h2>Edit File - fortran.vim</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/vim/vim80/indent/fortran.vim">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&quot; Vim indent file
&quot; Language:	Fortran 2008 (and older: Fortran 2003, 95, 90, and 77)
&quot; Version:	47
&quot; Last Change:	2016 Oct. 29
&quot; Maintainer:	Ajit J. Thakkar &lt;ajit@unb.ca&gt;; &lt;http://www2.unb.ca/~ajit/&gt;
&quot; Usage:	For instructions, do :help fortran-indent from Vim
&quot; Credits:
&quot;  Useful suggestions were made, in chronological order, by:
&quot;  Albert Oliver Serra, Takuya Fujiwara and Philipp Edelmann.

&quot; Only load this indent file when no other was loaded.
if exists(&quot;b:did_indent&quot;)
  finish
endif
let b:did_indent = 1

let s:cposet=&amp;cpoptions
set cpoptions&amp;vim

setlocal indentkeys+==~end,=~case,=~if,=~else,=~do,=~where,=~elsewhere,=~select
setlocal indentkeys+==~endif,=~enddo,=~endwhere,=~endselect,=~elseif
setlocal indentkeys+==~type,=~interface,=~forall,=~associate,=~block,=~enum
setlocal indentkeys+==~endforall,=~endassociate,=~endblock,=~endenum
if exists(&quot;b:fortran_indent_more&quot;) || exists(&quot;g:fortran_indent_more&quot;)
  setlocal indentkeys+==~function,=~subroutine,=~module,=~contains,=~program
  setlocal indentkeys+==~endfunction,=~endsubroutine,=~endmodule
  setlocal indentkeys+==~endprogram
endif

&quot; Determine whether this is a fixed or free format source file
&quot; if this hasn&#039;t been done yet using the priority:
&quot; buffer-local value
&quot; &gt; global value
&quot; &gt; file extension as in Intel ifort, gcc (gfortran), NAG, Pathscale, and Cray compilers
if !exists(&quot;b:fortran_fixed_source&quot;)
  if exists(&quot;fortran_free_source&quot;)
    &quot; User guarantees free source form
    let b:fortran_fixed_source = 0
  elseif exists(&quot;fortran_fixed_source&quot;)
    &quot; User guarantees fixed source form
    let b:fortran_fixed_source = 1
  elseif expand(&quot;%:e&quot;) ==? &quot;f\&lt;90\|95\|03\|08\&gt;&quot;
    &quot; Free-form file extension defaults as in Intel ifort, gcc(gfortran), NAG, Pathscale, and Cray compilers
    let b:fortran_fixed_source = 0
  elseif expand(&quot;%:e&quot;) ==? &quot;f\|f77\|for&quot;
    &quot; Fixed-form file extension defaults
    let b:fortran_fixed_source = 1
  else
    &quot; Modern fortran still allows both fixed and free source form
    &quot; Assume fixed source form unless signs of free source form
    &quot; are detected in the first five columns of the first s:lmax lines.
    &quot; Detection becomes more accurate and time-consuming if more lines
    &quot; are checked. Increase the limit below if you keep lots of comments at
    &quot; the very top of each file and you have a fast computer.
    let s:lmax = 500
    if ( s:lmax &gt; line(&quot;$&quot;) )
      let s:lmax = line(&quot;$&quot;)
    endif
    let b:fortran_fixed_source = 1
    let s:ln=1
    while s:ln &lt;= s:lmax
      let s:test = strpart(getline(s:ln),0,5)
      if s:test !~ &#039;^[Cc*]&#039; &amp;&amp; s:test !~ &#039;^ *[!#]&#039; &amp;&amp; s:test =~ &#039;[^ 0-9\t]&#039; &amp;&amp; s:test !~ &#039;^[ 0-9]*\t&#039;
	let b:fortran_fixed_source = 0
	break
      endif
      let s:ln = s:ln + 1
    endwhile
  endif
endif

&quot; Define the appropriate indent function but only once
if (b:fortran_fixed_source == 1)
  setlocal indentexpr=FortranGetFixedIndent()
  if exists(&quot;*FortranGetFixedIndent&quot;)
    finish
  endif
else
  setlocal indentexpr=FortranGetFreeIndent()
  if exists(&quot;*FortranGetFreeIndent&quot;)
    finish
  endif
endif

function FortranGetIndent(lnum)
  let ind = indent(a:lnum)
  let prevline=getline(a:lnum)
  &quot; Strip tail comment
  let prevstat=substitute(prevline, &#039;!.*$&#039;, &#039;&#039;, &#039;&#039;)
  let prev2line=getline(a:lnum-1)
  let prev2stat=substitute(prev2line, &#039;!.*$&#039;, &#039;&#039;, &#039;&#039;)

  &quot;Indent do loops only if they are all guaranteed to be of do/end do type
  if exists(&quot;b:fortran_do_enddo&quot;) || exists(&quot;g:fortran_do_enddo&quot;)
    if prevstat =~? &#039;^\s*\(\d\+\s\)\=\s*\(\a\w*\s*:\)\=\s*do\&gt;&#039;
      let ind = ind + shiftwidth()
    endif
    if getline(v:lnum) =~? &#039;^\s*\(\d\+\s\)\=\s*end\s*do\&gt;&#039;
      let ind = ind - shiftwidth()
    endif
  endif

  &quot;Add a shiftwidth to statements following if, else, else if, case, class,
  &quot;where, else where, forall, type, interface and associate statements
  if prevstat =~? &#039;^\s*\(case\|class\|else\|else\s*if\|else\s*where\)\&gt;&#039;
	\ ||prevstat=~? &#039;^\s*\(type\|interface\|associate\|enum\)\&gt;&#039;
	\ ||prevstat=~?&#039;^\s*\(\d\+\s\)\=\s*\(\a\w*\s*:\)\=\s*\(forall\|where\|block\)\&gt;&#039;
	\ ||prevstat=~? &#039;^\s*\(\d\+\s\)\=\s*\(\a\w*\s*:\)\=\s*if\&gt;&#039;
     let ind = ind + shiftwidth()
    &quot; Remove unwanted indent after logical and arithmetic ifs
    if prevstat =~? &#039;\&lt;if\&gt;&#039; &amp;&amp; prevstat !~? &#039;\&lt;then\&gt;&#039;
      let ind = ind - shiftwidth()
    endif
    &quot; Remove unwanted indent after type( statements
    if prevstat =~? &#039;^\s*type\s*(&#039;
      let ind = ind - shiftwidth()
    endif
  endif

  &quot;Indent program units unless instructed otherwise
  if !exists(&quot;b:fortran_indent_less&quot;) &amp;&amp; !exists(&quot;g:fortran_indent_less&quot;)
    let prefix=&#039;\(\(pure\|impure\|elemental\|recursive\)\s\+\)\{,2}&#039;
    let type=&#039;\(\(integer\|real\|double\s\+precision\|complex\|logical&#039;
          \.&#039;\|character\|type\|class\)\s*\S*\s\+\)\=&#039;
    if prevstat =~? &#039;^\s*\(contains\|submodule\|program\)\&gt;&#039;
            \ ||prevstat =~? &#039;^\s*&#039;.&#039;module\&gt;\(\s*\procedure\)\@!&#039;
            \ ||prevstat =~? &#039;^\s*&#039;.prefix.&#039;subroutine\&gt;&#039;
            \ ||prevstat =~? &#039;^\s*&#039;.prefix.type.&#039;function\&gt;&#039;
            \ ||prevstat =~? &#039;^\s*&#039;.type.prefix.&#039;function\&gt;&#039;
      let ind = ind + shiftwidth()
    endif
    if getline(v:lnum) =~? &#039;^\s*contains\&gt;&#039;
          \ ||getline(v:lnum)=~? &#039;^\s*end\s*&#039;
          \ .&#039;\(function\|subroutine\|module\|submodule\|program\)\&gt;&#039;
      let ind = ind - shiftwidth()
    endif
  endif

  &quot;Subtract a shiftwidth from else, else if, elsewhere, case, class, end if,
  &quot; end where, end select, end forall, end interface, end associate,
  &quot; end enum, end type, end block and end type statements
  if getline(v:lnum) =~? &#039;^\s*\(\d\+\s\)\=\s*&#039;
        \. &#039;\(else\|else\s*if\|else\s*where\|case\|class\|&#039;
        \. &#039;end\s*\(if\|where\|select\|interface\|&#039;
        \. &#039;type\|forall\|associate\|enum\|block\)\)\&gt;&#039;
    let ind = ind - shiftwidth()
    &quot; Fix indent for case statement immediately after select
    if prevstat =~? &#039;\&lt;select\s\+\(case\|type\)\&gt;&#039;
      let ind = ind + shiftwidth()
    endif
  endif

  &quot;First continuation line
  if prevstat =~ &#039;&amp;\s*$&#039; &amp;&amp; prev2stat !~ &#039;&amp;\s*$&#039;
    let ind = ind + shiftwidth()
  endif
  &quot;Line after last continuation line
  if prevstat !~ &#039;&amp;\s*$&#039; &amp;&amp; prev2stat =~ &#039;&amp;\s*$&#039; &amp;&amp; prevstat !~? &#039;\&lt;then\&gt;&#039;
    let ind = ind - shiftwidth()
  endif

  return ind
endfunction

function FortranGetFreeIndent()
  &quot;Find the previous non-blank line
  let lnum = prevnonblank(v:lnum - 1)

  &quot;Use zero indent at the top of the file
  if lnum == 0
    return 0
  endif

  let ind=FortranGetIndent(lnum)
  return ind
endfunction

function FortranGetFixedIndent()
  let currline=getline(v:lnum)
  &quot;Don&#039;t indent comments, continuation lines and labelled lines
  if strpart(currline,0,6) =~ &#039;[^ \t]&#039;
    let ind = indent(v:lnum)
    return ind
  endif

  &quot;Find the previous line which is not blank, not a comment,
  &quot;not a continuation line, and does not have a label
  let lnum = v:lnum - 1
  while lnum &gt; 0
    let prevline=getline(lnum)
    if (prevline =~ &quot;^[C*!]&quot;) || (prevline =~ &quot;^\s*$&quot;)
	\ || (strpart(prevline,5,1) !~ &quot;[ 0]&quot;)
      &quot; Skip comments, blank lines and continuation lines
      let lnum = lnum - 1
    else
      let test=strpart(prevline,0,5)
      if test =~ &quot;[0-9]&quot;
	&quot; Skip lines with statement numbers
	let lnum = lnum - 1
      else
	break
      endif
    endif
  endwhile

  &quot;First line must begin at column 7
  if lnum == 0
    return 6
  endif

  let ind=FortranGetIndent(lnum)
  return ind
endfunction

let &amp;cpoptions=s:cposet
unlet s:cposet

&quot; vim:sw=2 tw=130
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>