File: id-7.f

package info (click to toggle)

gcc-arm-none-eabi 15%3A12.2.rel1-1

links: PTS, VCS
area: main
in suites: bookworm
size: 959,712 kB
sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122

file content (14 lines) | stat: -rw-r--r-- 343 bytes

parent folder | download | duplicates (6)

      subroutine dasol(al,au,ad,b,jp,neq,energy)
      real*8 al(*),au(*),ad(*),b(*),zero,energy,bd,dot
      do 100 is=1,neq
         if(b(is).ne.zero) go to 200
 100  continue
      return
 200  if(is.lt.neq) then
      endif
      do 400 j = is,neq
         energy=energy+bd*b(j)
 400  continue
      if(neq.gt.1)then
      endif
      end