Qianxing Mo
| Snapshot Date: 2024-03-27 14:00:18 -0400 (Wed, 27 Mar 2024) |
| git_url: https://git.bioconductor.org/packages/iClusterPlus |
| git_branch: devel |
| git_last_commit: 691a05e |
| git_last_commit_date: 2023-10-24 09:57:16 -0400 (Tue, 24 Oct 2023) |
| Back to Multiple platform build/check report for BioC 3.19: simplified long |
|
This page was generated on 2024-03-28 11:36:35 -0400 (Thu, 28 Mar 2024).
| Hostname | OS | Arch (*) | R version | Installed pkgs |
|---|---|---|---|---|
| nebbiolo1 | Linux (Ubuntu 22.04.3 LTS) | x86_64 | R Under development (unstable) (2024-03-18 r86148) -- "Unsuffered Consequences" | 4708 |
| palomino3 | Windows Server 2022 Datacenter | x64 | R Under development (unstable) (2024-03-16 r86144 ucrt) -- "Unsuffered Consequences" | 4446 |
| lconway | macOS 12.7.1 Monterey | x86_64 | R Under development (unstable) (2024-03-18 r86148) -- "Unsuffered Consequences" | 4471 |
| kunpeng2 | Linux (openEuler 22.03 LTS-SP1) | aarch64 | R Under development (unstable) (2024-03-19 r86153) -- "Unsuffered Consequences" | 4426 |
| Click on any hostname to see more info about the system (e.g. compilers) (*) as reported by 'uname -p', except on Windows and Mac OS X | ||||
| Package 997/2270 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | ||||||||
| iClusterPlus 1.39.0 (landing page) Qianxing Mo
| nebbiolo1 | Linux (Ubuntu 22.04.3 LTS) / x86_64 | OK | OK | OK | | ||||||||
| palomino3 | Windows Server 2022 Datacenter / x64 | OK | OK | OK | OK | | ||||||||
| lconway | macOS 12.7.1 Monterey / x86_64 | OK | OK | OK | OK | | ||||||||
| kunpeng2 | Linux (openEuler 22.03 LTS-SP1) / aarch64 | OK | OK | OK | ||||||||||
|
To the developers/maintainers of the iClusterPlus package: - Allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/iClusterPlus.git to reflect on this report. See Troubleshooting Build Report for more information. - Use the following Renviron settings to reproduce errors and warnings. - If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information. |
| Package: iClusterPlus |
| Version: 1.39.0 |
| Command: /home/biocbuild/bbs-3.19-bioc/R/bin/R CMD INSTALL iClusterPlus |
| StartedAt: 2024-03-27 15:15:43 -0400 (Wed, 27 Mar 2024) |
| EndedAt: 2024-03-27 15:16:11 -0400 (Wed, 27 Mar 2024) |
| EllapsedTime: 28.7 seconds |
| RetCode: 0 |
| Status: OK |
##############################################################################
##############################################################################
###
### Running command:
###
### /home/biocbuild/bbs-3.19-bioc/R/bin/R CMD INSTALL iClusterPlus
###
##############################################################################
##############################################################################
* installing to library ‘/home/biocbuild/bbs-3.19-bioc/R/site-library’
* installing *source* package ‘iClusterPlus’ ...
** using staged installation
This package has only been tested with gfortran.
So some checks are needed.
R_HOME is /home/biocbuild/bbs-3.19-bioc/R
Attempting to determine R_ARCH...
R_ARCH is
Attempting to detect how R was configured for Fortran 90....
R configured for gfortran; Good!
configure: creating ./config.status
config.status: creating src/Makevars
** libs
using C compiler: ‘gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
using Fortran compiler: ‘GNU Fortran (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
gcc -I"/home/biocbuild/bbs-3.19-bioc/R/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -c iClusterBayes.c -o iClusterBayes.o
iClusterBayes.c: In function ‘mcmcBayes’:
iClusterBayes.c:1218:28: warning: variable ‘Zdraw’ set but not used [-Wunused-but-set-variable]
1218 | int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k;
| ^~~~~
iClusterBayes.c:1218:20: warning: variable ‘Zburnin’ set but not used [-Wunused-but-set-variable]
1218 | int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k;
| ^~~~~~~
iClusterBayes.c:1452:20: warning: ‘gb4’ may be used uninitialized in this function [-Wmaybe-uninitialized]
1452 | gb4[ID] = b4[ID]*gamma4[j];
| ~~~~~~~~^~~~~~~~~~~~~~~~~~
iClusterBayes.c:1437:20: warning: ‘gb3’ may be used uninitialized in this function [-Wmaybe-uninitialized]
1437 | gb3[ID] = b3[ID]*gamma3[j];
| ~~~~~~~~^~~~~~~~~~~~~~~~~~
iClusterBayes.c:1374:6: warning: ‘gb2’ may be used uninitialized in this function [-Wmaybe-uninitialized]
1374 | mcmcMix6d(meanZ,lastZ,nkZbd,sdev,
| ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1375 | &ty0,&p0,a0,gb0,con0,cat0,sigma0,
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1376 | &ty1,&p1,a1,gb1,con1,cat1,sigma1,
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1377 | &ty2,&p2,a2,gb2,con2,cat2,sigma2,
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1378 | &ty3,&p3,a3,gb3,con3,cat3,sigma3,
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1379 | &ty4,&p4,a4,gb4,con4,cat4,sigma4,
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1380 | &ty5,&p5,a5,gb5,con5,cat5,sigma5,acceptZ);
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
iClusterBayes.c:1374:6: warning: ‘gb1’ may be used uninitialized in this function [-Wmaybe-uninitialized]
iClusterBayes.c:1374:6: warning: ‘gb0’ may be used uninitialized in this function [-Wmaybe-uninitialized]
iClusterBayes.c:1467:20: warning: ‘gb5’ may be used uninitialized in this function [-Wmaybe-uninitialized]
1467 | gb5[ID] = b5[ID]*gamma5[j];
| ~~~~~~~~^~~~~~~~~~~~~~~~~~
gcc -I"/home/biocbuild/bbs-3.19-bioc/R/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -c iClusterPlus.c -o iClusterPlus.o
gfortran -fdefault-real-8 -ffixed-form -fpic -g -O2 -Wall -c newGLMnet.f90 -o newGLMnet.o
newGLMnet.f90:519:72:
519 | subroutine elnet (ka,parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam 609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:521:72:
521 | real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam) 610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:522:72:
522 | real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam) 611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:523:72:
523 | integer jd(*),ia(nx),nin(nlam) 612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:525:72:
525 | if(maxval(vp) .gt. 0.0)goto 10021 615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:526:72:
526 | jerr=10000 615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:527:72:
527 | return 615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:528:72:
528 | 10021 continue 616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:529:72:
529 | allocate(vq(1:ni),stat=jerr) 616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:530:72:
530 | if(jerr.ne.0) return 617
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:531:72:
531 | vq=max(0.0,vp) 617
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:532:72:
532 | vq=vq*ni/sum(vq) 618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:533:72:
533 | if(ka .ne. 1)goto 10041 619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:534:72:
534 | call elnetu (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd 622
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:536:72:
536 | goto 10051 623
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:537:72:
537 | 10041 continue 624
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:538:72:
538 | call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd, 627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:540:72:
540 | 10051 continue 628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:72:
541 | 10031 continue 628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:542:72:
542 | deallocate(vq) 629
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:543:72:
543 | return 630
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:544:72:
544 | end 631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:545:72:
545 | subroutine elnetu (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t 634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:547:72:
547 | real x(no,ni),y(no),w(no),vp(ni),ulam(nlam) 635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:548:72:
548 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:549:72:
549 | integer jd(*),ia(nx),nin(nlam) 637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:552:72:
552 | allocate(g(1:ni),stat=jerr) 642
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:553:72:
553 | allocate(xm(1:ni),stat=ierr) 642
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:554:72:
554 | jerr=jerr+ierr 643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:555:72:
555 | allocate(xs(1:ni),stat=ierr) 643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:556:72:
556 | jerr=jerr+ierr 644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:557:72:
557 | allocate(ju(1:ni),stat=ierr) 644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:558:72:
558 | jerr=jerr+ierr 645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:559:72:
559 | allocate(xv(1:ni),stat=ierr) 645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:560:72:
560 | jerr=jerr+ierr 646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:561:72:
561 | allocate(vlam(1:nlam),stat=ierr) 646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:562:72:
562 | jerr=jerr+ierr 647
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:563:72:
563 | if(jerr.ne.0) return 648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:564:72:
564 | call chkvars(no,ni,x,ju) 649
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:565:72:
565 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:566:72:
566 | if(maxval(ju) .gt. 0)goto 10071 650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:567:72:
567 | jerr=7777 650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:568:72:
568 | return 650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:569:72:
569 | 10071 continue 651
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:570:72:
570 | call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr) 652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:571:72:
571 | if(jerr.ne.0) return 653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:572:72:
572 | if(flmin.ge.1.0) vlam=ulam/ys 654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:573:72:
573 | call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x 656
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:575:72:
575 | if(jerr.gt.0) return 657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:576:72:
576 | 10080 do 10081 k=1,lmu 657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:577:72:
577 | alm(k)=ys*alm(k) 657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:578:72:
578 | nk=nin(k) 658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:579:72:
579 | 10090 do 10091 l=1,nk 658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:580:72:
580 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:581:72:
581 | 10091 continue 659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:582:72:
582 | 10092 continue 659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:583:72:
583 | a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:584:72:
584 | 10081 continue 661
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:585:72:
585 | 10082 continue 661
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:586:72:
586 | deallocate(xm,xs,g,ju,xv,vlam) 662
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:587:72:
587 | return 663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:588:72:
588 | end 664
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:589:72:
589 | subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr) 665
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:590:72:
590 | real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni) 665
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:591:72:
591 | integer ju(ni) 666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:593:72:
593 | allocate(v(1:no),stat=jerr) 669
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:594:72:
594 | if(jerr.ne.0) return 670
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:595:72:
595 | w=w/sum(w) 670
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:596:72:
596 | v=sqrt(w) 671
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:597:72:
597 | 10100 do 10101 j=1,ni 671
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:598:72:
598 | if(ju(j).eq.0)goto 10101 672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:599:72:
599 | xm(j)=dot_product(w,x(:,j)) 672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:600:72:
600 | x(:,j)=v*(x(:,j)-xm(j)) 673
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:601:72:
601 | xv(j)=dot_product(x(:,j),x(:,j)) 673
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:602:72:
602 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 674
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:603:72:
603 | 10101 continue 675
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:604:72:
604 | 10102 continue 675
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:605:72:
605 | if(isd .ne. 0)goto 10121 675
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:606:72:
606 | xs=1.0 675
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:607:72:
607 | goto 10131 676
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:608:72:
608 | 10121 continue 677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:609:72:
609 | 10140 do 10141 j=1,ni 677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:610:72:
610 | if(ju(j).eq.0)goto 10141 677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:611:72:
611 | x(:,j)=x(:,j)/xs(j) 677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:612:72:
612 | 10141 continue 678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:613:72:
613 | 10142 continue 678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:614:72:
614 | xv=1.0 679
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:615:72:
615 | 10131 continue 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:616:72:
616 | 10111 continue 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:617:72:
617 | ym=dot_product(w,y) 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:618:72:
618 | y=v*(y-ym) 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:619:72:
619 | ys=sqrt(dot_product(y,y)) 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:620:72:
620 | y=y/ys 680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:621:72:
621 | g=0.0 681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:622:72:
622 | 10150 do 10151 j=1,ni 681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:623:72:
623 | if(ju(j).ne.0) g(j)=dot_product(y,x(:,j)) 681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:624:72:
624 | 10151 continue 682
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:625:72:
625 | 10152 continue 682
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:626:72:
626 | deallocate(v) 683
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:627:72:
627 | return 684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:628:72:
628 | end 685
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:629:72:
629 | subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr, 687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:631:72:
631 | parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 688
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:633:72:
633 | real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo( 689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:635:72:
635 | integer ju(ni),ia(nx),kin(nlam) 690
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:640:72:
640 | allocate(a(1:ni),stat=ierr) 696
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:641:72:
641 | jerr=jerr+ierr 697
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:642:72:
642 | allocate(mm(1:ni),stat=ierr) 697
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:643:72:
643 | jerr=jerr+ierr 698
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:644:72:
644 | allocate(da(1:ni),stat=ierr) 698
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:645:72:
645 | jerr=jerr+ierr 699
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:646:72:
646 | if(jerr.ne.0) return 700
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:647:72:
647 | bta=beta 700
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:648:72:
648 | omb=1.0-bta 701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:649:72:
649 | if(flmin .ge. 1.0)goto 10171 701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:650:72:
650 | eqs=max(eps,flmin) 701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:651:72:
651 | alf=eqs**(1.0/(nlam-1)) 701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:652:72:
652 | 10171 continue 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:653:72:
653 | rsq=0.0 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:654:72:
654 | a=0.0 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:655:72:
655 | mm=0 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:656:72:
656 | nlp=0 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:657:72:
657 | nin=nlp 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:658:72:
658 | iz=0 702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:659:72:
659 | mnl=min(mnlam,nlam) 703
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:660:72:
660 | 10180 do 10181 m=1,nlam 704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:661:72:
661 | if(flmin .lt. 1.0)goto 10201 704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:662:72:
662 | alm=ulam(m) 704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:663:72:
663 | goto 10191 705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:664:72:
664 | 10201 if(m .le. 2)goto 10211 705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:665:72:
665 | alm=alm*alf 705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:666:72:
666 | goto 10191 706
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:667:72:
667 | 10211 if(m .ne. 1)goto 10221 706
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:668:72:
668 | alm=big 706
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:669:72:
669 | goto 10231 707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:670:72:
670 | 10221 continue 707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:671:72:
671 | alm=0.0 708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:672:72:
672 | 10240 do 10241 j=1,ni 708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:673:72:
673 | if(ju(j).eq.0)goto 10241 708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:674:72:
674 | if(vp(j).le.0.0)goto 10241 709
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:675:72:
675 | alm=max(alm,abs(g(j))/vp(j)) 710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:676:72:
676 | 10241 continue 711
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:677:72:
677 | 10242 continue 711
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:678:72:
678 | alm=alf*alm/max(bta,1.0e-3) 712
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:679:72:
679 | 10231 continue 713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:680:72:
680 | 10191 continue 713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:681:72:
681 | dem=alm*omb 713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:682:72:
682 | ab=alm*bta 713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:683:72:
683 | rsq0=rsq 713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:684:72:
684 | jz=1 714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:685:72:
685 | 10250 continue 714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:686:72:
686 | 10251 continue 714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:687:72:
687 | if(iz*jz.ne.0) go to 10260 714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:688:72:
688 | nlp=nlp+1 714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:689:72:
689 | dlx=0.0 715
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:690:72:
690 | 10270 do 10271 k=1,ni 715
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:691:72:
691 | if(ju(k).eq.0)goto 10271 716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:692:72:
692 | ak=a(k) 716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:693:72:
693 | u=g(k)+ak*xv(k) 716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:694:72:
694 | v=abs(u)-vp(k)*ab 716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:695:72:
695 | a(k)=0.0 717
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:696:72:
696 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 718
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:697:72:
697 | if(a(k).eq.ak)goto 10271 719
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:698:72:
698 | if(mm(k) .ne. 0)goto 10291 719
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:699:72:
699 | nin=nin+1 719
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:700:72:
700 | if(nin.gt.nx)goto 10272 720
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:701:72:
701 | 10300 do 10301 j=1,ni 720
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:702:72:
702 | if(ju(j).eq.0)goto 10301 721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:703:72:
703 | if(mm(j) .eq. 0)goto 10321 721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:704:72:
704 | c(j,nin)=c(k,mm(j)) 721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:705:72:
705 | goto 10301 721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:706:72:
706 | 10321 continue 722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:707:72:
707 | if(j .ne. k)goto 10341 722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:708:72:
708 | c(j,nin)=xv(j) 722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:709:72:
709 | goto 10301 722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:710:72:
710 | 10341 continue 723
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:711:72:
711 | c(j,nin)=dot_product(x(:,j),x(:,k)) 724
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:712:72:
712 | 10301 continue 725
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:713:72:
713 | 10302 continue 725
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:714:72:
714 | mm(k)=nin 725
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:715:72:
715 | ia(nin)=k 726
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:716:72:
716 | 10291 continue 727
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:717:72:
717 | del=a(k)-ak 727
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:718:72:
718 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 728
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:719:72:
719 | dlx=max(xv(k)*del**2,dlx) 729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:720:72:
720 | 10350 do 10351 j=1,ni 729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:721:72:
721 | if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:722:72:
722 | 10351 continue 730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:723:72:
723 | 10352 continue 730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:724:72:
724 | 10271 continue 731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:725:72:
725 | 10272 continue 731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:726:72:
726 | if(dlx.lt.thr)goto 10252 731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:727:72:
727 | if(nin.gt.nx)goto 10252 732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:728:72:
728 | if(nlp .le. maxit)goto 10371 732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:729:72:
729 | jerr=-m 732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:730:72:
730 | return 732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:731:72:
731 | 10371 continue 733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:732:72:
732 | 10260 continue 733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:733:72:
733 | iz=1 733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:734:72:
734 | da(1:nin)=a(ia(1:nin)) 734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:735:72:
735 | 10380 continue 734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:736:72:
736 | 10381 continue 734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:737:72:
737 | nlp=nlp+1 734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:738:72:
738 | dlx=0.0 735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:739:72:
739 | 10390 do 10391 l=1,nin 735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:740:72:
740 | k=ia(l) 735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:741:72:
741 | ak=a(k) 735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:742:72:
742 | u=g(k)+ak*xv(k) 735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:743:72:
743 | v=abs(u)-vp(k)*ab 736
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:744:72:
744 | a(k)=0.0 737
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:745:72:
745 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 738
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:746:72:
746 | if(a(k).eq.ak)goto 10391 739
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:747:72:
747 | del=a(k)-ak 739
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:748:72:
748 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:749:72:
749 | dlx=max(xv(k)*del**2,dlx) 741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:750:72:
750 | 10400 do 10401 j=1,nin 741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:751:72:
751 | g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del 741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:752:72:
752 | 10401 continue 742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:753:72:
753 | 10402 continue 742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:754:72:
754 | 10391 continue 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:755:72:
755 | 10392 continue 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:756:72:
756 | if(dlx.lt.thr)goto 10382 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:757:72:
757 | if(nlp .le. maxit)goto 10421 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:758:72:
758 | jerr=-m 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:759:72:
759 | return 743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:760:72:
760 | 10421 continue 744
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:761:72:
761 | goto 10381 745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:762:72:
762 | 10382 continue 745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:763:72:
763 | da(1:nin)=a(ia(1:nin))-da(1:nin) 746
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:764:72:
764 | 10430 do 10431 j=1,ni 746
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:765:72:
765 | if(mm(j).ne.0)goto 10431 747
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:766:72:
766 | if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin)) 748
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:767:72:
767 | 10431 continue 749
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:768:72:
768 | 10432 continue 749
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:769:72:
769 | jz=0 750
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:770:72:
770 | goto 10251 751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:771:72:
771 | 10252 continue 751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:772:72:
772 | if(nin .le. nx)goto 10451 751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:773:72:
773 | jerr=-10000-m 751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:774:72:
774 | goto 10182 751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:775:72:
775 | 10451 continue 752
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:776:72:
776 | if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 752
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:777:72:
777 | kin(m)=nin 753
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:778:72:
778 | rsqo(m)=rsq 753
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:779:72:
779 | almo(m)=alm 753
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:780:72:
780 | lmu=m 754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:781:72:
781 | if(m.lt.mnl)goto 10181 754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:782:72:
782 | if(flmin.ge.1.0)goto 10181 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:783:72:
783 | me=0 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:784:72:
784 | 10460 do 10461 j=1,nin 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:785:72:
785 | if(ao(j,m).ne.0.0) me=me+1 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:786:72:
786 | 10461 continue 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:787:72:
787 | 10462 continue 755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:788:72:
788 | if(me.gt.ne)goto 10182 756
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:789:72:
789 | if(rsq-rsq0.lt.sml*rsq)goto 10182 756
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:790:72:
790 | if(rsq.gt.rsqmax)goto 10182 757
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:791:72:
791 | 10181 continue 758
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:792:72:
792 | 10182 continue 758
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:793:72:
793 | deallocate(a,mm,c,da) 759
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:794:72:
794 | return 760
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:795:72:
795 | end 761
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:796:72:
796 | subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th 763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:798:72:
798 | real vp(ni),x(no,ni),y(no),w(no),ulam(nlam) 764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:799:72:
799 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 765
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:800:72:
800 | integer jd(*),ia(nx),nin(nlam) 766
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:803:72:
803 | allocate(xm(1:ni),stat=jerr) 771
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:804:72:
804 | allocate(xs(1:ni),stat=ierr) 771
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:805:72:
805 | jerr=jerr+ierr 772
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:806:72:
806 | allocate(ju(1:ni),stat=ierr) 772
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:807:72:
807 | jerr=jerr+ierr 773
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:808:72:
808 | allocate(xv(1:ni),stat=ierr) 773
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:809:72:
809 | jerr=jerr+ierr 774
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:810:72:
810 | allocate(vlam(1:nlam),stat=ierr) 774
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:811:72:
811 | jerr=jerr+ierr 775
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:812:72:
812 | if(jerr.ne.0) return 776
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:813:72:
813 | call chkvars(no,ni,x,ju) 777
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:814:72:
814 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:815:72:
815 | if(maxval(ju) .gt. 0)goto 10481 778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:816:72:
816 | jerr=7777 778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:817:72:
817 | return 778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:818:72:
818 | 10481 continue 779
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:819:72:
819 | call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr) 780
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:820:72:
820 | if(jerr.ne.0) return 781
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:821:72:
821 | if(flmin.ge.1.0) vlam=ulam/ys 782
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:822:72:
822 | call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x 784
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:824:72:
824 | if(jerr.gt.0) return 785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:825:72:
825 | 10490 do 10491 k=1,lmu 785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:826:72:
826 | alm(k)=ys*alm(k) 785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:827:72:
827 | nk=nin(k) 786
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:828:72:
828 | 10500 do 10501 l=1,nk 786
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:829:72:
829 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 786
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:830:72:
830 | 10501 continue 787
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:831:72:
831 | 10502 continue 787
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:832:72:
832 | a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 788
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:833:72:
833 | 10491 continue 789
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:834:72:
834 | 10492 continue 789
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:835:72:
835 | deallocate(xm,xs,ju,xv,vlam) 790
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:836:72:
836 | return 791
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:837:72:
837 | end 792
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:838:72:
838 | subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr) 793
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:839:72:
839 | real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni) 793
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:840:72:
840 | integer ju(ni) 794
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:842:72:
842 | allocate(v(1:no),stat=jerr) 797
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:843:72:
843 | if(jerr.ne.0) return 798
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:844:72:
844 | w=w/sum(w) 798
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:845:72:
845 | v=sqrt(w) 799
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:846:72:
846 | 10510 do 10511 j=1,ni 799
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:847:72:
847 | if(ju(j).eq.0)goto 10511 800
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:848:72:
848 | xm(j)=dot_product(w,x(:,j)) 800
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:849:72:
849 | x(:,j)=v*(x(:,j)-xm(j)) 801
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:850:72:
850 | xv(j)=dot_product(x(:,j),x(:,j)) 801
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:851:72:
851 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 802
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:852:72:
852 | 10511 continue 803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:853:72:
853 | 10512 continue 803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:854:72:
854 | if(isd .ne. 0)goto 10531 803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:855:72:
855 | xs=1.0 803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:856:72:
856 | goto 10541 804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:857:72:
857 | 10531 continue 804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:858:72:
858 | 10550 do 10551 j=1,ni 804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:859:72:
859 | if(ju(j).eq.0)goto 10551 804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:860:72:
860 | x(:,j)=x(:,j)/xs(j) 804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:861:72:
861 | 10551 continue 805
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:862:72:
862 | 10552 continue 805
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:863:72:
863 | xv=1.0 806
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:864:72:
864 | 10541 continue 807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:865:72:
865 | 10521 continue 807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:866:72:
866 | ym=dot_product(w,y) 807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:867:72:
867 | y=v*(y-ym) 807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:868:72:
868 | ys=sqrt(dot_product(y,y)) 807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:869:72:
869 | y=y/ys 808
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:870:72:
870 | deallocate(v) 809
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:871:72:
871 | return 810
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:872:72:
872 | end 811
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:873:72:
873 | subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m 813
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:875:72:
875 | parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 814
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:877:72:
877 | real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo( 815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:879:72:
879 | integer ju(ni),ia(nx),kin(nlam) 816
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:882:72:
882 | allocate(a(1:ni),stat=jerr) 821
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:883:72:
883 | allocate(mm(1:ni),stat=ierr) 821
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:884:72:
884 | jerr=jerr+ierr 822
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:885:72:
885 | allocate(g(1:ni),stat=ierr) 822
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:886:72:
886 | jerr=jerr+ierr 823
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:887:72:
887 | allocate(ix(1:ni),stat=ierr) 823
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:888:72:
888 | jerr=jerr+ierr 824
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:889:72:
889 | if(jerr.ne.0) return 825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:890:72:
890 | bta=beta 825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:891:72:
891 | omb=1.0-bta 825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:892:72:
892 | ix=0 826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:893:72:
893 | if(flmin .ge. 1.0)goto 10571 826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:894:72:
894 | eqs=max(eps,flmin) 826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:895:72:
895 | alf=eqs**(1.0/(nlam-1)) 826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:896:72:
896 | 10571 continue 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:897:72:
897 | rsq=0.0 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:898:72:
898 | a=0.0 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:899:72:
899 | mm=0 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:900:72:
900 | nlp=0 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:901:72:
901 | nin=nlp 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:902:72:
902 | iz=0 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:903:72:
903 | mnl=min(mnlam,nlam) 827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:904:72:
904 | alm=0.0 828
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:905:72:
905 | 10580 do 10581 j=1,ni 828
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:906:72:
906 | if(ju(j).eq.0)goto 10581 828
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:907:72:
907 | g(j)=abs(dot_product(y,x(:,j))) 828
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:908:72:
908 | 10581 continue 829
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:909:72:
909 | 10582 continue 829
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:910:72:
910 | 10590 do 10591 m=1,nlam 829
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:911:72:
911 | alm0=alm 830
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:912:72:
912 | if(flmin .lt. 1.0)goto 10611 830
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:913:72:
913 | alm=ulam(m) 830
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:914:72:
914 | goto 10601 831
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:915:72:
915 | 10611 if(m .le. 2)goto 10621 831
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:916:72:
916 | alm=alm*alf 831
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:917:72:
917 | goto 10601 832
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:918:72:
918 | 10621 if(m .ne. 1)goto 10631 832
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:919:72:
919 | alm=big 832
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:920:72:
920 | goto 10641 833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:921:72:
921 | 10631 continue 833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:922:72:
922 | alm0=0.0 834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:923:72:
923 | 10650 do 10651 j=1,ni 834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:924:72:
924 | if(ju(j).eq.0)goto 10651 834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:925:72:
925 | if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j)) 834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:926:72:
926 | 10651 continue 835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:927:72:
927 | 10652 continue 835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:928:72:
928 | alm0=alm0/max(bta,1.0e-3) 835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:929:72:
929 | alm=alf*alm0 836
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:930:72:
930 | 10641 continue 837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:931:72:
931 | 10601 continue 837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:932:72:
932 | dem=alm*omb 837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:933:72:
933 | ab=alm*bta 837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:934:72:
934 | rsq0=rsq 837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:935:72:
935 | jz=1 838
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:936:72:
936 | tlam=bta*(2.0*alm-alm0) 839
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:937:72:
937 | 10660 do 10661 k=1,ni 839
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:938:72:
938 | if(ix(k).eq.1)goto 10661 839
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:939:72:
939 | if(ju(k).eq.0)goto 10661 840
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:940:72:
940 | if(g(k).gt.tlam*vp(k)) ix(k)=1 841
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:941:72:
941 | 10661 continue 842
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:942:72:
942 | 10662 continue 842
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:943:72:
943 | 10670 continue 842
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:944:72:
944 | 10671 continue 842
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:945:72:
945 | if(iz*jz.ne.0) go to 10260 843
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:946:72:
946 | 10680 continue 843
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:947:72:
947 | nlp=nlp+1 843
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:948:72:
948 | dlx=0.0 844
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:949:72:
949 | 10690 do 10691 k=1,ni 844
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:950:72:
950 | if(ix(k).eq.0)goto 10691 844
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:951:72:
951 | gk=dot_product(y,x(:,k)) 845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:952:72:
952 | ak=a(k) 845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:953:72:
953 | u=gk+ak*xv(k) 845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:954:72:
954 | v=abs(u)-vp(k)*ab 845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:955:72:
955 | a(k)=0.0 846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:956:72:
956 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 847
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:957:72:
957 | if(a(k).eq.ak)goto 10691 848
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:958:72:
958 | if(mm(k) .ne. 0)goto 10711 848
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:959:72:
959 | nin=nin+1 848
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:960:72:
960 | if(nin.gt.nx)goto 10692 849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:961:72:
961 | mm(k)=nin 849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:962:72:
962 | ia(nin)=k 850
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:963:72:
963 | 10711 continue 851
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:964:72:
964 | del=a(k)-ak 851
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:965:72:
965 | rsq=rsq+del*(2.0*gk-del*xv(k)) 852
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:966:72:
966 | y=y-del*x(:,k) 852
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:967:72:
967 | dlx=max(xv(k)*del**2,dlx) 853
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:968:72:
968 | 10691 continue 854
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:969:72:
969 | 10692 continue 854
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:970:72:
970 | if(nin.gt.nx)goto 10672 855
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:971:72:
971 | if(dlx .ge. thr)goto 10731 855
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:972:72:
972 | ixx=0 856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:973:72:
973 | 10740 do 10741 k=1,ni 856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:974:72:
974 | if(ix(k).eq.1)goto 10741 856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:975:72:
975 | if(ju(k).eq.0)goto 10741 857
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:976:72:
976 | g(k)=abs(dot_product(y,x(:,k))) 858
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:977:72:
977 | if(g(k) .le. ab*vp(k))goto 10761 858
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:978:72:
978 | ix(k)=1 858
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:979:72:
979 | ixx=1 858
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:980:72:
980 | 10761 continue 859
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:981:72:
981 | 10741 continue 860
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:982:72:
982 | 10742 continue 860
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:983:72:
983 | if(ixx.eq.1) go to 10680 861
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:984:72:
984 | goto 10672 862
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:985:72:
985 | 10731 continue 863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:986:72:
986 | if(nlp .le. maxit)goto 10781 863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:987:72:
987 | jerr=-m 863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:988:72:
988 | return 863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:989:72:
989 | 10781 continue 864
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:990:72:
990 | 10260 continue 864
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:991:72:
991 | iz=1 865
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:992:72:
992 | 10790 continue 865
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:993:72:
993 | 10791 continue 865
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:994:72:
994 | nlp=nlp+1 865
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:995:72:
995 | dlx=0.0 866
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:996:72:
996 | 10800 do 10801 l=1,nin 866
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:997:72:
997 | k=ia(l) 866
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:998:72:
998 | gk=dot_product(y,x(:,k)) 867
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:999:72:
999 | ak=a(k) 867
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1000:72:
1000 | u=gk+ak*xv(k) 867
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1001:72:
1001 | v=abs(u)-vp(k)*ab 867
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1002:72:
1002 | a(k)=0.0 868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1003:72:
1003 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 869
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1004:72:
1004 | if(a(k).eq.ak)goto 10801 870
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1005:72:
1005 | del=a(k)-ak 870
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1006:72:
1006 | rsq=rsq+del*(2.0*gk-del*xv(k)) 871
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1007:72:
1007 | y=y-del*x(:,k) 871
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1008:72:
1008 | dlx=max(xv(k)*del**2,dlx) 872
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1009:72:
1009 | 10801 continue 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1010:72:
1010 | 10802 continue 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1011:72:
1011 | if(dlx.lt.thr)goto 10792 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1012:72:
1012 | if(nlp .le. maxit)goto 10821 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1013:72:
1013 | jerr=-m 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1014:72:
1014 | return 873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1015:72:
1015 | 10821 continue 874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1016:72:
1016 | goto 10791 875
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1017:72:
1017 | 10792 continue 875
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1018:72:
1018 | jz=0 876
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1019:72:
1019 | goto 10671 877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1020:72:
1020 | 10672 continue 877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1021:72:
1021 | if(nin .le. nx)goto 10841 877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1022:72:
1022 | jerr=-10000-m 877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1023:72:
1023 | goto 10592 877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1024:72:
1024 | 10841 continue 878
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1025:72:
1025 | if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 878
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1026:72:
1026 | kin(m)=nin 879
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1027:72:
1027 | rsqo(m)=rsq 879
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1028:72:
1028 | almo(m)=alm 879
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1029:72:
1029 | lmu=m 880
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1030:72:
1030 | if(m.lt.mnl)goto 10591 880
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1031:72:
1031 | if(flmin.ge.1.0)goto 10591 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1032:72:
1032 | me=0 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1033:72:
1033 | 10850 do 10851 j=1,nin 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1034:72:
1034 | if(ao(j,m).ne.0.0) me=me+1 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1035:72:
1035 | 10851 continue 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1036:72:
1036 | 10852 continue 881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1037:72:
1037 | if(me.gt.ne)goto 10592 882
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1038:72:
1038 | if(rsq-rsq0.lt.sml*rsq)goto 10592 882
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1039:72:
1039 | if(rsq.gt.rsqmax)goto 10592 883
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1040:72:
1040 | 10591 continue 884
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1041:72:
1041 | 10592 continue 884
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1042:72:
1042 | deallocate(a,mm,g,ix) 885
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1043:72:
1043 | return 886
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1044:72:
1044 | end 887
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1045:72:
1045 | subroutine chkvars(no,ni,x,ju) 888
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1046:72:
1046 | real x(no,ni) 888
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1047:72:
1047 | integer ju(ni) 889
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1048:72:
1048 | 10860 do 10861 j=1,ni 889
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1049:72:
1049 | ju(j)=0 889
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1050:72:
1050 | t=x(1,j) 890
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1051:72:
1051 | 10870 do 10871 i=2,no 890
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1052:72:
1052 | if(x(i,j).eq.t)goto 10871 890
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1053:72:
1053 | ju(j)=1 890
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1054:72:
1054 | goto 10872 890
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1055:72:
1055 | 10871 continue 891
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1056:72:
1056 | 10872 continue 891
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1057:72:
1057 | 10861 continue 892
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1058:72:
1058 | 10862 continue 892
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1059:72:
1059 | return 893
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1060:72:
1060 | end 894
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1061:72:
1061 | subroutine uncomp(ni,ca,ia,nin,a) 895
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1062:72:
1062 | real ca(*),a(ni) 895
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1063:72:
1063 | integer ia(*) 896
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1064:72:
1064 | a=0.0 896
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1065:72:
1065 | if(nin.gt.0) a(ia(1:nin))=ca(1:nin) 897
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1066:72:
1066 | return 898
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1067:72:
1067 | end 899
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1068:72:
1068 | subroutine modval(a0,ca,ia,nin,n,x,f) 900
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1069:72:
1069 | real ca(nin),x(n,*),f(n) 900
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1070:72:
1070 | integer ia(nin) 901
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1071:72:
1071 | f=a0 901
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1072:72:
1072 | if(nin.le.0) return 902
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1073:72:
1073 | 10880 do 10881 i=1,n 902
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1074:72:
1074 | f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin))) 902
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1075:72:
1075 | 10881 continue 903
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1076:72:
1076 | 10882 continue 903
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1077:72:
1077 | return 904
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1078:72:
1078 | end 905
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1079:72:
1079 | subroutine spelnet (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl 908
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1081:72:
1081 | real x(*),y(no),w(no),vp(ni),ulam(nlam) 909
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1082:72:
1082 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 910
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1083:72:
1083 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 911
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1085:72:
1085 | if(maxval(vp) .gt. 0.0)goto 10901 914
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1086:72:
1086 | jerr=10000 914
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1087:72:
1087 | return 914
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1088:72:
1088 | 10901 continue 915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1089:72:
1089 | allocate(vq(1:ni),stat=jerr) 915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1090:72:
1090 | if(jerr.ne.0) return 916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1091:72:
1091 | vq=max(0.0,vp) 916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1092:72:
1092 | vq=vq*ni/sum(vq) 917
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1093:72:
1093 | if(ka .ne. 1)goto 10921 918
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1094:72:
1094 | call spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam 921
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1096:72:
1096 | goto 10931 922
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1097:72:
1097 | 10921 continue 923
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1098:72:
1098 | call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam, 926
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1100:72:
1100 | 10931 continue 927
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1101:72:
1101 | 10911 continue 927
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1102:72:
1102 | deallocate(vq) 928
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1103:72:
1103 | return 929
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1104:72:
1104 | end 930
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1105:72:
1105 | subroutine spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi 933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1107:72:
1107 | real x(*),y(no),w(no),vp(ni),ulam(nlam) 934
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1108:72:
1108 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 935
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1109:72:
1109 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 936
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1112:72:
1112 | allocate(g(1:ni),stat=jerr) 941
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1113:72:
1113 | allocate(xm(1:ni),stat=ierr) 941
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1114:72:
1114 | jerr=jerr+ierr 942
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1115:72:
1115 | allocate(xs(1:ni),stat=ierr) 942
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1116:72:
1116 | jerr=jerr+ierr 943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1117:72:
1117 | allocate(ju(1:ni),stat=ierr) 943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1118:72:
1118 | jerr=jerr+ierr 944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1119:72:
1119 | allocate(xv(1:ni),stat=ierr) 944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1120:72:
1120 | jerr=jerr+ierr 945
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1121:72:
1121 | allocate(vlam(1:nlam),stat=ierr) 945
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1122:72:
1122 | jerr=jerr+ierr 946
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1123:72:
1123 | if(jerr.ne.0) return 947
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1124:72:
1124 | call spchkvars(no,ni,x,ix,ju) 948
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1125:72:
1125 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 949
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1126:72:
1126 | if(maxval(ju) .gt. 0)goto 10951 949
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1127:72:
1127 | jerr=7777 949
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1128:72:
1128 | return 949
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1129:72:
1129 | 10951 continue 950
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1130:72:
1130 | call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr) 951
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1131:72:
1131 | if(jerr.ne.0) return 952
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1132:72:
1132 | if(flmin.ge.1.0) vlam=ulam/ys 953
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1133:72:
1133 | call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t 955
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1135:72:
1135 | if(jerr.gt.0) return 956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1136:72:
1136 | 10960 do 10961 k=1,lmu 956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1137:72:
1137 | alm(k)=ys*alm(k) 956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1138:72:
1138 | nk=nin(k) 957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1139:72:
1139 | 10970 do 10971 l=1,nk 957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1140:72:
1140 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1141:72:
1141 | 10971 continue 958
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1142:72:
1142 | 10972 continue 958
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1143:72:
1143 | a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 959
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1144:72:
1144 | 10961 continue 960
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1145:72:
1145 | 10962 continue 960
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1146:72:
1146 | deallocate(xm,xs,g,ju,xv,vlam) 961
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1147:72:
1147 | return 962
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1148:72:
1148 | end 963
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1149:72:
1149 | subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j 964
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1151:72:
1151 | real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni) 964
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1152:72:
1152 | integer ix(*),jx(*),ju(ni) 965
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1153:72:
1153 | w=w/sum(w) 966
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1154:72:
1154 | 10980 do 10981 j=1,ni 966
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1155:72:
1155 | if(ju(j).eq.0)goto 10981 967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1156:72:
1156 | jb=ix(j) 967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1157:72:
1157 | je=ix(j+1)-1 967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1158:72:
1158 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 968
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1159:72:
1159 | xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2 969
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1160:72:
1160 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 970
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1161:72:
1161 | 10981 continue 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1162:72:
1162 | 10982 continue 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1163:72:
1163 | if(isd .ne. 0)goto 11001 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1164:72:
1164 | xs=1.0 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1165:72:
1165 | goto 11011 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1166:72:
1166 | 11001 continue 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1167:72:
1167 | xv=1.0 971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1168:72:
1168 | 11011 continue 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1169:72:
1169 | 10991 continue 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1170:72:
1170 | ym=dot_product(w,y) 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1171:72:
1171 | y=y-ym 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1172:72:
1172 | ys=sqrt(dot_product(w,y**2)) 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1173:72:
1173 | y=y/ys 972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1174:72:
1174 | g=0.0 973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1175:72:
1175 | 11020 do 11021 j=1,ni 973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1176:72:
1176 | if(ju(j).eq.0)goto 11021 973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1177:72:
1177 | jb=ix(j) 973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1178:72:
1178 | je=ix(j+1)-1 974
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1179:72:
1179 | g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j) 975
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1180:72:
1180 | 11021 continue 976
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1181:72:
1181 | 11022 continue 976
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1182:72:
1182 | return 977
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1183:72:
1183 | end 978
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1184:72:
1184 | subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin, 980
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1186:72:
1186 | parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 981
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1188:72:
1188 | real g(ni),vp(ni),x(*),ulam(nlam),w(no) 982
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1189:72:
1189 | real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni) 983
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1190:72:
1190 | integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 984
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1195:72:
1195 | allocate(a(1:ni),stat=ierr) 990
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1196:72:
1196 | jerr=jerr+ierr 991
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1197:72:
1197 | allocate(mm(1:ni),stat=ierr) 991
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1198:72:
1198 | jerr=jerr+ierr 992
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1199:72:
1199 | allocate(da(1:ni),stat=ierr) 992
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1200:72:
1200 | jerr=jerr+ierr 993
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1201:72:
1201 | if(jerr.ne.0) return 994
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1202:72:
1202 | bta=beta 994
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1203:72:
1203 | omb=1.0-bta 995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1204:72:
1204 | if(flmin .ge. 1.0)goto 11041 995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1205:72:
1205 | eqs=max(eps,flmin) 995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1206:72:
1206 | alf=eqs**(1.0/(nlam-1)) 995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1207:72:
1207 | 11041 continue 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1208:72:
1208 | rsq=0.0 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1209:72:
1209 | a=0.0 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1210:72:
1210 | mm=0 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1211:72:
1211 | nlp=0 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1212:72:
1212 | nin=nlp 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1213:72:
1213 | iz=0 996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1214:72:
1214 | mnl=min(mnlam,nlam) 997
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1215:72:
1215 | 11050 do 11051 m=1,nlam 998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1216:72:
1216 | if(flmin .lt. 1.0)goto 11071 998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1217:72:
1217 | alm=ulam(m) 998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1218:72:
1218 | goto 11061 999
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1219:72:
1219 | 11071 if(m .le. 2)goto 11081 999
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1220:72:
1220 | alm=alm*alf 999
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1221:72:
1221 | goto 11061 1000
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1222:72:
1222 | 11081 if(m .ne. 1)goto 11091 1000
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1223:72:
1223 | alm=big 1000
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1224:72:
1224 | goto 11101 1001
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1225:72:
1225 | 11091 continue 1001
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1226:72:
1226 | alm=0.0 1002
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1227:72:
1227 | 11110 do 11111 j=1,ni 1002
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1228:72:
1228 | if(ju(j).eq.0)goto 11111 1002
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1229:72:
1229 | if(vp(j).le.0.0)goto 11111 1003
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1230:72:
1230 | alm=max(alm,abs(g(j))/vp(j)) 1004
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1231:72:
1231 | 11111 continue 1005
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1232:72:
1232 | 11112 continue 1005
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1233:72:
1233 | alm=alf*alm/max(bta,1.0e-3) 1006
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1234:72:
1234 | 11101 continue 1007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1235:72:
1235 | 11061 continue 1007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1236:72:
1236 | dem=alm*omb 1007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1237:72:
1237 | ab=alm*bta 1007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1238:72:
1238 | rsq0=rsq 1007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1239:72:
1239 | jz=1 1008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1240:72:
1240 | 11120 continue 1008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1241:72:
1241 | 11121 continue 1008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1242:72:
1242 | if(iz*jz.ne.0) go to 10260 1008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1243:72:
1243 | nlp=nlp+1 1008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1244:72:
1244 | dlx=0.0 1009
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1245:72:
1245 | 11130 do 11131 k=1,ni 1009
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1246:72:
1246 | if(ju(k).eq.0)goto 11131 1010
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1247:72:
1247 | ak=a(k) 1010
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1248:72:
1248 | u=g(k)+ak*xv(k) 1010
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1249:72:
1249 | v=abs(u)-vp(k)*ab 1010
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1250:72:
1250 | a(k)=0.0 1011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1251:72:
1251 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1012
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1252:72:
1252 | if(a(k).eq.ak)goto 11131 1013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1253:72:
1253 | if(mm(k) .ne. 0)goto 11151 1013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1254:72:
1254 | nin=nin+1 1013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1255:72:
1255 | if(nin.gt.nx)goto 11132 1014
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1256:72:
1256 | 11160 do 11161 j=1,ni 1014
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1257:72:
1257 | if(ju(j).eq.0)goto 11161 1015
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1258:72:
1258 | if(mm(j) .eq. 0)goto 11181 1015
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1259:72:
1259 | c(j,nin)=c(k,mm(j)) 1015
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1260:72:
1260 | goto 11161 1015
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1261:72:
1261 | 11181 continue 1016
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1262:72:
1262 | if(j .ne. k)goto 11201 1016
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1263:72:
1263 | c(j,nin)=xv(j) 1016
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1264:72:
1264 | goto 11161 1016
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1265:72:
1265 | 11201 continue 1017
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1266:72:
1266 | c(j,nin)= (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k)) 1019
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1267:72:
1267 | 11161 continue 1020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1268:72:
1268 | 11162 continue 1020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1269:72:
1269 | mm(k)=nin 1020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1270:72:
1270 | ia(nin)=k 1021
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1271:72:
1271 | 11151 continue 1022
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1272:72:
1272 | del=a(k)-ak 1022
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1273:72:
1273 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1023
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1274:72:
1274 | dlx=max(xv(k)*del**2,dlx) 1024
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1275:72:
1275 | 11210 do 11211 j=1,ni 1024
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1276:72:
1276 | if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 1024
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1277:72:
1277 | 11211 continue 1025
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1278:72:
1278 | 11212 continue 1025
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1279:72:
1279 | 11131 continue 1026
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1280:72:
1280 | 11132 continue 1026
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1281:72:
1281 | if(dlx.lt.thr)goto 11122 1026
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1282:72:
1282 | if(nin.gt.nx)goto 11122 1027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1283:72:
1283 | if(nlp .le. maxit)goto 11231 1027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1284:72:
1284 | jerr=-m 1027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1285:72:
1285 | return 1027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1286:72:
1286 | 11231 continue 1028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1287:72:
1287 | 10260 continue 1028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1288:72:
1288 | iz=1 1028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1289:72:
1289 | da(1:nin)=a(ia(1:nin)) 1029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1290:72:
1290 | 11240 continue 1029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1291:72:
1291 | 11241 continue 1029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1292:72:
1292 | nlp=nlp+1 1029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1293:72:
1293 | dlx=0.0 1030
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1294:72:
1294 | 11250 do 11251 l=1,nin 1030
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1295:72:
1295 | k=ia(l) 1031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1296:72:
1296 | ak=a(k) 1031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1297:72:
1297 | u=g(k)+ak*xv(k) 1031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1298:72:
1298 | v=abs(u)-vp(k)*ab 1031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1299:72:
1299 | a(k)=0.0 1032
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1300:72:
1300 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1033
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1301:72:
1301 | if(a(k).eq.ak)goto 11251 1034
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1302:72:
1302 | del=a(k)-ak 1034
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1303:72:
1303 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1035
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1304:72:
1304 | dlx=max(xv(k)*del**2,dlx) 1036
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1305:72:
1305 | 11260 do 11261 j=1,nin 1036
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1306:72:
1306 | g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del 1036
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1307:72:
1307 | 11261 continue 1037
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1308:72:
1308 | 11262 continue 1037
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1309:72:
1309 | 11251 continue 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1310:72:
1310 | 11252 continue 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1311:72:
1311 | if(dlx.lt.thr)goto 11242 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1312:72:
1312 | if(nlp .le. maxit)goto 11281 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1313:72:
1313 | jerr=-m 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1314:72:
1314 | return 1038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1315:72:
1315 | 11281 continue 1039
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1316:72:
1316 | goto 11241 1040
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1317:72:
1317 | 11242 continue 1040
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1318:72:
1318 | da(1:nin)=a(ia(1:nin))-da(1:nin) 1041
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1319:72:
1319 | 11290 do 11291 j=1,ni 1041
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1320:72:
1320 | if(mm(j).ne.0)goto 11291 1042
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1321:72:
1321 | if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin)) 1043
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1322:72:
1322 | 11291 continue 1044
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1323:72:
1323 | 11292 continue 1044
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1324:72:
1324 | jz=0 1045
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1325:72:
1325 | goto 11121 1046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1326:72:
1326 | 11122 continue 1046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1327:72:
1327 | if(nin .le. nx)goto 11311 1046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1328:72:
1328 | jerr=-10000-m 1046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1329:72:
1329 | goto 11052 1046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1330:72:
1330 | 11311 continue 1047
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1331:72:
1331 | if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 1047
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1332:72:
1332 | kin(m)=nin 1048
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1333:72:
1333 | rsqo(m)=rsq 1048
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1334:72:
1334 | almo(m)=alm 1048
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1335:72:
1335 | lmu=m 1049
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1336:72:
1336 | if(m.lt.mnl)goto 11051 1049
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1337:72:
1337 | if(flmin.ge.1.0)goto 11051 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1338:72:
1338 | me=0 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1339:72:
1339 | 11320 do 11321 j=1,nin 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1340:72:
1340 | if(ao(j,m).ne.0.0) me=me+1 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1341:72:
1341 | 11321 continue 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1342:72:
1342 | 11322 continue 1050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1343:72:
1343 | if(me.gt.ne)goto 11052 1051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1344:72:
1344 | if(rsq-rsq0.lt.sml*rsq)goto 11052 1051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1345:72:
1345 | if(rsq.gt.rsqmax)goto 11052 1052
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1346:72:
1346 | 11051 continue 1053
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1347:72:
1347 | 11052 continue 1053
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1348:72:
1348 | deallocate(a,mm,c,da) 1054
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1349:72:
1349 | return 1055
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1350:72:
1350 | end 1056
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1351:72:
1351 | subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin, 1058
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1353:72:
1353 | real x(*),vp(ni),y(no),w(no),ulam(nlam) 1059
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1354:72:
1354 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 1060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1355:72:
1355 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1061
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1358:72:
1358 | allocate(xm(1:ni),stat=jerr) 1066
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1359:72:
1359 | allocate(xs(1:ni),stat=ierr) 1066
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1360:72:
1360 | jerr=jerr+ierr 1067
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1361:72:
1361 | allocate(ju(1:ni),stat=ierr) 1067
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1362:72:
1362 | jerr=jerr+ierr 1068
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1363:72:
1363 | allocate(xv(1:ni),stat=ierr) 1068
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1364:72:
1364 | jerr=jerr+ierr 1069
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1365:72:
1365 | allocate(vlam(1:nlam),stat=ierr) 1069
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1366:72:
1366 | jerr=jerr+ierr 1070
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1367:72:
1367 | if(jerr.ne.0) return 1071
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1368:72:
1368 | call spchkvars(no,ni,x,ix,ju) 1072
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1369:72:
1369 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1370:72:
1370 | if(maxval(ju) .gt. 0)goto 11341 1073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1371:72:
1371 | jerr=7777 1073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1372:72:
1372 | return 1073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1373:72:
1373 | 11341 continue 1074
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1374:72:
1374 | call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr) 1075
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1375:72:
1375 | if(jerr.ne.0) return 1076
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1376:72:
1376 | if(flmin.ge.1.0) vlam=ulam/ys 1077
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1377:72:
1377 | call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t 1079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1379:72:
1379 | if(jerr.gt.0) return 1080
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1380:72:
1380 | 11350 do 11351 k=1,lmu 1080
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1381:72:
1381 | alm(k)=ys*alm(k) 1080
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1382:72:
1382 | nk=nin(k) 1081
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1383:72:
1383 | 11360 do 11361 l=1,nk 1081
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1384:72:
1384 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 1081
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1385:72:
1385 | 11361 continue 1082
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1386:72:
1386 | 11362 continue 1082
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1387:72:
1387 | a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 1083
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1388:72:
1388 | 11351 continue 1084
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1389:72:
1389 | 11352 continue 1084
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1390:72:
1390 | deallocate(xm,xs,ju,xv,vlam) 1085
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1391:72:
1391 | return 1086
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1392:72:
1392 | end 1087
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1393:72:
1393 | subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je 1088
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1395:72:
1395 | real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni) 1088
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1396:72:
1396 | integer ix(*),jx(*),ju(ni) 1089
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1397:72:
1397 | w=w/sum(w) 1090
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1398:72:
1398 | 11370 do 11371 j=1,ni 1090
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1399:72:
1399 | if(ju(j).eq.0)goto 11371 1091
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1400:72:
1400 | jb=ix(j) 1091
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1401:72:
1401 | je=ix(j+1)-1 1091
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1402:72:
1402 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1403:72:
1403 | xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2 1093
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1404:72:
1404 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 1094
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1405:72:
1405 | 11371 continue 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1406:72:
1406 | 11372 continue 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1407:72:
1407 | if(isd .ne. 0)goto 11391 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1408:72:
1408 | xs=1.0 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1409:72:
1409 | goto 11401 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1410:72:
1410 | 11391 continue 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1411:72:
1411 | xv=1.0 1095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1412:72:
1412 | 11401 continue 1096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1413:72:
1413 | 11381 continue 1096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1414:72:
1414 | ym=dot_product(w,y) 1096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1415:72:
1415 | y=y-ym 1096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1416:72:
1416 | ys=sqrt(dot_product(w,y**2)) 1096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1417:72:
1417 | y=y/ys 1097
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1418:72:
1418 | return 1098
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1419:72:
1419 | end 1099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1420:72:
1420 | subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin, 1101
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1422:72:
1422 | parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 1102
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1424:72:
1424 | real y(no),w(no),x(*),vp(ni),ulam(nlam) 1103
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1425:72:
1425 | real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni) 1104
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1426:72:
1426 | integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 1105
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1429:72:
1429 | allocate(a(1:ni),stat=jerr) 1110
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1430:72:
1430 | allocate(mm(1:ni),stat=ierr) 1110
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1431:72:
1431 | jerr=jerr+ierr 1111
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1432:72:
1432 | allocate(g(1:ni),stat=ierr) 1111
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1433:72:
1433 | jerr=jerr+ierr 1112
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1434:72:
1434 | allocate(iy(1:ni),stat=ierr) 1112
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1435:72:
1435 | jerr=jerr+ierr 1113
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1436:72:
1436 | if(jerr.ne.0) return 1114
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1437:72:
1437 | bta=beta 1114
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1438:72:
1438 | omb=1.0-bta 1114
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1439:72:
1439 | alm=0.0 1114
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1440:72:
1440 | iy=0 1115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1441:72:
1441 | if(flmin .ge. 1.0)goto 11421 1115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1442:72:
1442 | eqs=max(eps,flmin) 1115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1443:72:
1443 | alf=eqs**(1.0/(nlam-1)) 1115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1444:72:
1444 | 11421 continue 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1445:72:
1445 | rsq=0.0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1446:72:
1446 | a=0.0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1447:72:
1447 | mm=0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1448:72:
1448 | o=0.0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1449:72:
1449 | nlp=0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1450:72:
1450 | nin=nlp 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1451:72:
1451 | iz=0 1116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1452:72:
1452 | mnl=min(mnlam,nlam) 1117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1453:72:
1453 | 11430 do 11431 j=1,ni 1117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1454:72:
1454 | if(ju(j).eq.0)goto 11431 1118
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1455:72:
1455 | jb=ix(j) 1118
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1456:72:
1456 | je=ix(j+1)-1 1119
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1457:72:
1457 | g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 1120
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1458:72:
1458 | 11431 continue 1121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1459:72:
1459 | 11432 continue 1121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1460:72:
1460 | 11440 do 11441 m=1,nlam 1121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1461:72:
1461 | alm0=alm 1122
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1462:72:
1462 | if(flmin .lt. 1.0)goto 11461 1122
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1463:72:
1463 | alm=ulam(m) 1122
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1464:72:
1464 | goto 11451 1123
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1465:72:
1465 | 11461 if(m .le. 2)goto 11471 1123
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1466:72:
1466 | alm=alm*alf 1123
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1467:72:
1467 | goto 11451 1124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1468:72:
1468 | 11471 if(m .ne. 1)goto 11481 1124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1469:72:
1469 | alm=big 1124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1470:72:
1470 | goto 11491 1125
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1471:72:
1471 | 11481 continue 1125
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1472:72:
1472 | alm0=0.0 1126
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1473:72:
1473 | 11500 do 11501 j=1,ni 1126
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1474:72:
1474 | if(ju(j).eq.0)goto 11501 1126
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1475:72:
1475 | if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j)) 1126
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1476:72:
1476 | 11501 continue 1127
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1477:72:
1477 | 11502 continue 1127
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1478:72:
1478 | alm0=alm0/max(bta,1.0e-3) 1127
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1479:72:
1479 | alm=alf*alm0 1128
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1480:72:
1480 | 11491 continue 1129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1481:72:
1481 | 11451 continue 1129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1482:72:
1482 | dem=alm*omb 1129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1483:72:
1483 | ab=alm*bta 1129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1484:72:
1484 | rsq0=rsq 1129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1485:72:
1485 | jz=1 1130
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1486:72:
1486 | tlam=bta*(2.0*alm-alm0) 1131
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1487:72:
1487 | 11510 do 11511 k=1,ni 1131
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1488:72:
1488 | if(iy(k).eq.1)goto 11511 1131
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1489:72:
1489 | if(ju(k).eq.0)goto 11511 1132
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1490:72:
1490 | if(g(k).gt.tlam*vp(k)) iy(k)=1 1133
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1491:72:
1491 | 11511 continue 1134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1492:72:
1492 | 11512 continue 1134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1493:72:
1493 | 11520 continue 1134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1494:72:
1494 | 11521 continue 1134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1495:72:
1495 | if(iz*jz.ne.0) go to 10260 1135
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1496:72:
1496 | 10680 continue 1135
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1497:72:
1497 | nlp=nlp+1 1135
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1498:72:
1498 | dlx=0.0 1136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1499:72:
1499 | 11530 do 11531 k=1,ni 1136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1500:72:
1500 | if(iy(k).eq.0)goto 11531 1136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1501:72:
1501 | jb=ix(k) 1136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1502:72:
1502 | je=ix(k+1)-1 1137
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1503:72:
1503 | gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k) 1138
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1504:72:
1504 | ak=a(k) 1138
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1505:72:
1505 | u=gk+ak*xv(k) 1138
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1506:72:
1506 | v=abs(u)-vp(k)*ab 1138
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1507:72:
1507 | a(k)=0.0 1139
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1508:72:
1508 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1140
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1509:72:
1509 | if(a(k).eq.ak)goto 11531 1141
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1510:72:
1510 | if(mm(k) .ne. 0)goto 11551 1141
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1511:72:
1511 | nin=nin+1 1141
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1512:72:
1512 | if(nin.gt.nx)goto 11532 1142
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1513:72:
1513 | mm(k)=nin 1142
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1514:72:
1514 | ia(nin)=k 1143
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1515:72:
1515 | 11551 continue 1144
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1516:72:
1516 | del=a(k)-ak 1144
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1517:72:
1517 | rsq=rsq+del*(2.0*gk-del*xv(k)) 1145
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1518:72:
1518 | y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k) 1146
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1519:72:
1519 | o=o+del*xm(k)/xs(k) 1146
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1520:72:
1520 | dlx=max(xv(k)*del**2,dlx) 1147
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1521:72:
1521 | 11531 continue 1148
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1522:72:
1522 | 11532 continue 1148
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1523:72:
1523 | if(nin.gt.nx)goto 11522 1149
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1524:72:
1524 | if(dlx .ge. thr)goto 11571 1149
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1525:72:
1525 | ixx=0 1150
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1526:72:
1526 | 11580 do 11581 j=1,ni 1150
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1527:72:
1527 | if(iy(j).eq.1)goto 11581 1150
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1528:72:
1528 | if(ju(j).eq.0)goto 11581 1151
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1529:72:
1529 | jb=ix(j) 1151
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1530:72:
1530 | je=ix(j+1)-1 1152
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1531:72:
1531 | g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 1153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1532:72:
1532 | if(g(j) .le. ab*vp(j))goto 11601 1153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1533:72:
1533 | iy(j)=1 1153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1534:72:
1534 | ixx=1 1153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1535:72:
1535 | 11601 continue 1154
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1536:72:
1536 | 11581 continue 1155
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1537:72:
1537 | 11582 continue 1155
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1538:72:
1538 | if(ixx.eq.1) go to 10680 1156
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1539:72:
1539 | goto 11522 1157
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1540:72:
1540 | 11571 continue 1158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1541:72:
1541 | if(nlp .le. maxit)goto 11621 1158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1542:72:
1542 | jerr=-m 1158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1543:72:
1543 | return 1158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1544:72:
1544 | 11621 continue 1159
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1545:72:
1545 | 10260 continue 1159
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1546:72:
1546 | iz=1 1160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1547:72:
1547 | 11630 continue 1160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1548:72:
1548 | 11631 continue 1160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1549:72:
1549 | nlp=nlp+1 1160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1550:72:
1550 | dlx=0.0 1161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1551:72:
1551 | 11640 do 11641 l=1,nin 1161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1552:72:
1552 | k=ia(l) 1161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1553:72:
1553 | jb=ix(k) 1161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1554:72:
1554 | je=ix(k+1)-1 1162
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1555:72:
1555 | gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k) 1163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1556:72:
1556 | ak=a(k) 1163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1557:72:
1557 | u=gk+ak*xv(k) 1163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1558:72:
1558 | v=abs(u)-vp(k)*ab 1163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1559:72:
1559 | a(k)=0.0 1164
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1560:72:
1560 | if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1165
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1561:72:
1561 | if(a(k).eq.ak)goto 11641 1166
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1562:72:
1562 | del=a(k)-ak 1166
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1563:72:
1563 | rsq=rsq+del*(2.0*gk-del*xv(k)) 1167
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1564:72:
1564 | y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k) 1168
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1565:72:
1565 | o=o+del*xm(k)/xs(k) 1168
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1566:72:
1566 | dlx=max(xv(k)*del**2,dlx) 1169
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1567:72:
1567 | 11641 continue 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1568:72:
1568 | 11642 continue 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1569:72:
1569 | if(dlx.lt.thr)goto 11632 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1570:72:
1570 | if(nlp .le. maxit)goto 11661 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1571:72:
1571 | jerr=-m 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1572:72:
1572 | return 1170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1573:72:
1573 | 11661 continue 1171
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1574:72:
1574 | goto 11631 1172
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1575:72:
1575 | 11632 continue 1172
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1576:72:
1576 | jz=0 1173
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1577:72:
1577 | goto 11521 1174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1578:72:
1578 | 11522 continue 1174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1579:72:
1579 | if(nin .le. nx)goto 11681 1174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1580:72:
1580 | jerr=-10000-m 1174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1581:72:
1581 | goto 11442 1174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1582:72:
1582 | 11681 continue 1175
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1583:72:
1583 | if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 1175
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1584:72:
1584 | kin(m)=nin 1176
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1585:72:
1585 | rsqo(m)=rsq 1176
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1586:72:
1586 | almo(m)=alm 1176
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1587:72:
1587 | lmu=m 1177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1588:72:
1588 | if(m.lt.mnl)goto 11441 1177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1589:72:
1589 | if(flmin.ge.1.0)goto 11441 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1590:72:
1590 | me=0 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1591:72:
1591 | 11690 do 11691 j=1,nin 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1592:72:
1592 | if(ao(j,m).ne.0.0) me=me+1 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1593:72:
1593 | 11691 continue 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1594:72:
1594 | 11692 continue 1178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1595:72:
1595 | if(me.gt.ne)goto 11442 1179
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1596:72:
1596 | if(rsq-rsq0.lt.sml*rsq)goto 11442 1179
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1597:72:
1597 | if(rsq.gt.rsqmax)goto 11442 1180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1598:72:
1598 | 11441 continue 1181
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1599:72:
1599 | 11442 continue 1181
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1600:72:
1600 | deallocate(a,mm,g,iy) 1182
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1601:72:
1601 | return 1183
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1602:72:
1602 | end 1184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1603:72:
1603 | subroutine spchkvars(no,ni,x,ix,ju) 1185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1604:72:
1604 | real x(*) 1185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1605:72:
1605 | integer ix(*),ju(ni) 1186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1606:72:
1606 | 11700 do 11701 j=1,ni 1186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1607:72:
1607 | ju(j)=0 1186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1608:72:
1608 | jb=ix(j) 1186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1609:72:
1609 | nj=ix(j+1)-jb 1186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1610:72:
1610 | if(nj.eq.0)goto 11701 1187
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1611:72:
1611 | je=ix(j+1)-1 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1612:72:
1612 | if(nj .ge. no)goto 11721 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1613:72:
1613 | 11730 do 11731 i=jb,je 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1614:72:
1614 | if(x(i).eq.0.0)goto 11731 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1615:72:
1615 | ju(j)=1 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1616:72:
1616 | goto 11732 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1617:72:
1617 | 11731 continue 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1618:72:
1618 | 11732 continue 1188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1619:72:
1619 | goto 11741 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1620:72:
1620 | 11721 continue 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1621:72:
1621 | t=x(jb) 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1622:72:
1622 | 11750 do 11751 i=jb+1,je 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1623:72:
1623 | if(x(i).eq.t)goto 11751 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1624:72:
1624 | ju(j)=1 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1625:72:
1625 | goto 11752 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1626:72:
1626 | 11751 continue 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1627:72:
1627 | 11752 continue 1189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1628:72:
1628 | 11741 continue 1190
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1629:72:
1629 | 11711 continue 1190
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1630:72:
1630 | 11701 continue 1191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1631:72:
1631 | 11702 continue 1191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1632:72:
1632 | return 1192
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1633:72:
1633 | end 1193
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1634:72:
1634 | subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f) 1194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1635:72:
1635 | real ca(*),x(*),f(n) 1194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1636:72:
1636 | integer ia(*),ix(*),jx(*) 1195
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1637:72:
1637 | f=a0 1196
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1638:72:
1638 | 11760 do 11761 j=1,nin 1196
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1639:72:
1639 | k=ia(j) 1196
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1640:72:
1640 | kb=ix(k) 1196
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1641:72:
1641 | ke=ix(k+1)-1 1197
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1642:72:
1642 | f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke) 1198
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1643:72:
1643 | 11761 continue 1199
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1644:72:
1644 | 11762 continue 1199
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1645:72:
1645 | return 1200
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1646:72:
1646 | end 1201
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1647:72:
1647 | function row_prod(i,j,ia,ja,ra,w) 1202
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1648:72:
1648 | integer ia(*),ja(*) 1202
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1649:72:
1649 | real ra(*),w(*) 1203
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1650:72:
1650 | row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)), ia(i+1)-ia( 1205
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1652:72:
1652 | return 1206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1653:72:
1653 | end 1207
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1654:72:
1654 | function dot(x,y,mx,my,nx,ny,w) 1208
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1655:72:
1655 | real x(*),y(*),w(*) 1208
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1656:72:
1656 | integer mx(*),my(*) 1209
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1657:72:
1657 | i=1 1209
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1658:72:
1658 | j=i 1209
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1659:72:
1659 | s=0.0 1210
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1660:72:
1660 | 11770 continue 1210
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1661:72:
1661 | 11771 continue 1210
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1662:72:
1662 | 11780 continue 1211
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1663:72:
1663 | 11781 if(mx(i).ge.my(j))goto 11782 1211
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1664:72:
1664 | i=i+1 1211
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1665:72:
1665 | if(i.gt.nx) go to 11790 1211
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1666:72:
1666 | goto 11781 1212
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1667:72:
1667 | 11782 continue 1212
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1668:72:
1668 | if(mx(i).eq.my(j)) go to 11800 1213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1669:72:
1669 | 11810 continue 1213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1670:72:
1670 | 11811 if(my(j).ge.mx(i))goto 11812 1213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1671:72:
1671 | j=j+1 1213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1672:72:
1672 | if(j.gt.ny) go to 11790 1213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1673:72:
1673 | goto 11811 1214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1674:72:
1674 | 11812 continue 1214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1675:72:
1675 | if(mx(i).eq.my(j)) go to 11800 1214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1676:72:
1676 | goto 11771 1215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1677:72:
1677 | 11800 continue 1215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1678:72:
1678 | s=s+w(mx(i))*x(i)*y(j) 1216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1679:72:
1679 | i=i+1 1216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1680:72:
1680 | if(i.gt.nx)goto 11772 1216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1681:72:
1681 | j=j+1 1216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1682:72:
1682 | if(j.gt.ny)goto 11772 1217
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1683:72:
1683 | goto 11771 1218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1684:72:
1684 | 11772 continue 1218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1685:72:
1685 | 11790 continue 1218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1686:72:
1686 | dot=s 1219
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1687:72:
1687 | return 1220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1688:72:
1688 | end 1221
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1689:72:
1689 | subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam 1223
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1691:72:
1691 | real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam) 1224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1692:72:
1692 | real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1225
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1693:72:
1693 | integer jd(*),ia(nx),nin(nlam) 1226
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1696:72:
1696 | if(maxval(vp) .gt. 0.0)goto 11831 1230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1697:72:
1697 | jerr=10000 1230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1698:72:
1698 | return 1230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1699:72:
1699 | 11831 continue 1231
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1700:72:
1700 | allocate(ww(1:no),stat=jerr) 1232
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1701:72:
1701 | allocate(ju(1:ni),stat=ierr) 1232
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1702:72:
1702 | jerr=jerr+ierr 1233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1703:72:
1703 | allocate(vq(1:ni),stat=ierr) 1233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1704:72:
1704 | jerr=jerr+ierr 1234
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1705:72:
1705 | allocate(xm(1:ni),stat=ierr) 1234
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1706:72:
1706 | jerr=jerr+ierr 1235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1707:72:
1707 | if(isd .le. 0)goto 11851 1235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1708:72:
1708 | allocate(xs(1:ni),stat=ierr) 1235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1709:72:
1709 | jerr=jerr+ierr 1235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1710:72:
1710 | 11851 continue 1236
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1711:72:
1711 | if(jerr.ne.0) return 1237
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1712:72:
1712 | call chkvars(no,ni,x,ju) 1238
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1713:72:
1713 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1714:72:
1714 | if(maxval(ju) .gt. 0)goto 11871 1239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1715:72:
1715 | jerr=7777 1239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1716:72:
1716 | return 1239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1717:72:
1717 | 11871 continue 1240
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1718:72:
1718 | vq=max(0.0,vp) 1240
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1719:72:
1719 | vq=vq*ni/sum(vq) 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1720:72:
1720 | 11880 do 11881 i=1,no 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1721:72:
1721 | ww(i)=sum(y(i,:)) 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1722:72:
1722 | y(i,:)=y(i,:)/ww(i) 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1723:72:
1723 | 11881 continue 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1724:72:
1724 | 11882 continue 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1725:72:
1725 | sw=sum(ww) 1241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1726:72:
1726 | ww=ww/sw 1242
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1727:72:
1727 | call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 1243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1728:72:
1728 | if(nc .ne. 1)goto 11901 1244
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1729:72:
1729 | call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin 1246
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1731:72:
1731 | goto 11911 1247
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1732:72:
1732 | 11901 continue 1248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1733:72:
1733 | call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th 1250
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1735:72:
1735 | 11911 continue 1251
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1736:72:
1736 | 11891 continue 1251
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1737:72:
1737 | if(jerr.gt.0) return 1251
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1738:72:
1738 | dev0=2.0*sw*dev0 1252
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1739:72:
1739 | 11920 do 11921 k=1,lmu 1252
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1740:72:
1740 | nk=nin(k) 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1741:72:
1741 | 11930 do 11931 ic=1,nc 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1742:72:
1742 | if(isd .le. 0)goto 11951 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1743:72:
1743 | 11960 do 11961 l=1,nk 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1744:72:
1744 | ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1745:72:
1745 | 11961 continue 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1746:72:
1746 | 11962 continue 1253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1747:72:
1747 | 11951 continue 1254
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1748:72:
1748 | a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk))) 1255
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1749:72:
1749 | 11931 continue 1256
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1750:72:
1750 | 11932 continue 1256
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1751:72:
1751 | 11921 continue 1257
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1752:72:
1752 | 11922 continue 1257
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1753:72:
1753 | deallocate(ww,ju,vq,xm) 1257
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1754:72:
1754 | if(isd.gt.0) deallocate(xs) 1258
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1755:72:
1755 | return 1259
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1756:72:
1756 | end 1260
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1757:72:
1757 | subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs) 1261
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1758:72:
1758 | real x(no,ni),w(no),xm(ni),xs(ni) 1261
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1759:72:
1759 | integer ju(ni) 1262
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1760:72:
1760 | 11970 do 11971 j=1,ni 1262
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1761:72:
1761 | if(ju(j).eq.0)goto 11971 1263
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1762:72:
1762 | xm(j)=dot_product(w,x(:,j)) 1263
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1763:72:
1763 | x(:,j)=x(:,j)-xm(j) 1264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1764:72:
1764 | if(isd .le. 0)goto 11991 1264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1765:72:
1765 | xs(j)=sqrt(dot_product(w,x(:,j)**2)) 1264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1766:72:
1766 | x(:,j)=x(:,j)/xs(j) 1264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1767:72:
1767 | 11991 continue 1265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1768:72:
1768 | 11971 continue 1266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1769:72:
1769 | 11972 continue 1266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1770:72:
1770 | return 1267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1771:72:
1771 | end 1268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1772:72:
1772 | subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam 1270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1774:72:
1774 | parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1272
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1776:72:
1776 | real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam) 1273
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1777:72:
1777 | real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1778:72:
1778 | integer ju(ni),m(nx),kin(nlam) 1275
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1781:72:
1781 | allocate(b(0:ni),stat=jerr) 1280
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1782:72:
1782 | allocate(xv(1:ni),stat=ierr) 1280
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1783:72:
1783 | jerr=jerr+ierr 1281
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1784:72:
1784 | allocate(ga(1:ni),stat=ierr) 1281
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1785:72:
1785 | jerr=jerr+ierr 1282
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1786:72:
1786 | allocate(bs(0:ni),stat=ierr) 1282
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1787:72:
1787 | jerr=jerr+ierr 1283
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1788:72:
1788 | allocate(mm(1:ni),stat=ierr) 1283
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1789:72:
1789 | jerr=jerr+ierr 1284
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1790:72:
1790 | allocate(ixx(1:ni),stat=ierr) 1284
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1791:72:
1791 | jerr=jerr+ierr 1285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1792:72:
1792 | allocate(r(1:no),stat=ierr) 1285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1793:72:
1793 | jerr=jerr+ierr 1286
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1794:72:
1794 | allocate(v(1:no),stat=ierr) 1286
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1795:72:
1795 | jerr=jerr+ierr 1287
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1796:72:
1796 | allocate(q(1:no),stat=ierr) 1287
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1797:72:
1797 | jerr=jerr+ierr 1288
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1798:72:
1798 | if(jerr.ne.0) return 1289
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1799:72:
1799 | fmax=log(1.0/pmin-1.0) 1289
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1800:72:
1800 | fmin=-fmax 1289
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1801:72:
1801 | vmin=(1.0+pmin)*pmin*(1.0-pmin) 1290
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1802:72:
1802 | bta=parm 1290
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1803:72:
1803 | omb=1.0-bta 1291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1804:72:
1804 | q0=dot_product(w,y) 1291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1805:72:
1805 | if(q0 .gt. pmin)goto 12011 1291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1806:72:
1806 | jerr=8001 1291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1807:72:
1807 | return 1291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1808:72:
1808 | 12011 continue 1292
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1809:72:
1809 | if(q0 .lt. 1.0-pmin)goto 12031 1292
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1810:72:
1810 | jerr=9001 1292
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1811:72:
1811 | return 1292
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1812:72:
1812 | 12031 continue 1293
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1813:72:
1813 | ixx=0 1293
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1814:72:
1814 | al=0.0 1293
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1815:72:
1815 | bz=log(q0/(1.0-q0)) 1294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1816:72:
1816 | if(nonzero(no,g) .ne. 0)goto 12051 1294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1817:72:
1817 | vi=q0*(1.0-q0) 1294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1818:72:
1818 | b(0)=bz 1294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1819:72:
1819 | v=vi*w 1295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1820:72:
1820 | r=w*(y-q0) 1295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1821:72:
1821 | q=q0 1295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1822:72:
1822 | xmz=vi 1295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1823:72:
1823 | dev1=-(bz*q0+log(1.0-q0)) 1296
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1824:72:
1824 | goto 12061 1297
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1825:72:
1825 | 12051 continue 1297
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1826:72:
1826 | b(0)=azero(no,y,g,w,jerr) 1297
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1827:72:
1827 | if(jerr.ne.0) return 1298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1828:72:
1828 | q=1.0/(1.0+exp(-b(0)-g)) 1298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1829:72:
1829 | v=w*q*(1.0-q) 1298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1830:72:
1830 | r=w*(y-q) 1298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1831:72:
1831 | xmz=sum(v) 1299
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1832:72:
1832 | dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q))) 1300
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1833:72:
1833 | 12061 continue 1301
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1834:72:
1834 | 12041 continue 1301
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1835:72:
1835 | if(kopt .le. 0)goto 12081 1302
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1836:72:
1836 | if(isd .le. 0)goto 12101 1302
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1837:72:
1837 | xv=0.25 1302
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1838:72:
1838 | goto 12111 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1839:72:
1839 | 12101 continue 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1840:72:
1840 | 12120 do 12121 j=1,ni 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1841:72:
1841 | if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2) 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1842:72:
1842 | 12121 continue 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1843:72:
1843 | 12122 continue 1303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1844:72:
1844 | 12111 continue 1304
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1845:72:
1845 | 12091 continue 1304
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1846:72:
1846 | 12081 continue 1305
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1847:72:
1847 | dev0=dev1 1306
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1848:72:
1848 | 12130 do 12131 i=1,no 1306
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1849:72:
1849 | if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i)) 1307
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1850:72:
1850 | if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i)) 1308
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1851:72:
1851 | 12131 continue 1309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1852:72:
1852 | 12132 continue 1309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1853:72:
1853 | if(flmin .ge. 1.0)goto 12151 1309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1854:72:
1854 | eqs=max(eps,flmin) 1309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1855:72:
1855 | alf=eqs**(1.0/(nlam-1)) 1309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1856:72:
1856 | 12151 continue 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1857:72:
1857 | m=0 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1858:72:
1858 | mm=0 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1859:72:
1859 | nlp=0 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1860:72:
1860 | nin=nlp 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1861:72:
1861 | mnl=min(mnlam,nlam) 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1862:72:
1862 | bs=0.0 1310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1863:72:
1863 | b(1:ni)=0.0 1311
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1864:72:
1864 | shr=shri*dev0 1312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1865:72:
1865 | 12160 do 12161 j=1,ni 1312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1866:72:
1866 | if(ju(j).eq.0)goto 12161 1312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1867:72:
1867 | ga(j)=abs(dot_product(r,x(:,j))) 1312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1868:72:
1868 | 12161 continue 1313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1869:72:
1869 | 12162 continue 1313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1870:72:
1870 | 12170 do 12171 ilm=1,nlam 1313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1871:72:
1871 | al0=al 1314
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1872:72:
1872 | if(flmin .lt. 1.0)goto 12191 1314
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1873:72:
1873 | al=ulam(ilm) 1314
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1874:72:
1874 | goto 12181 1315
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1875:72:
1875 | 12191 if(ilm .le. 2)goto 12201 1315
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1876:72:
1876 | al=al*alf 1315
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1877:72:
1877 | goto 12181 1316
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1878:72:
1878 | 12201 if(ilm .ne. 1)goto 12211 1316
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1879:72:
1879 | al=big 1316
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1880:72:
1880 | goto 12221 1317
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1881:72:
1881 | 12211 continue 1317
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1882:72:
1882 | al0=0.0 1318
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1883:72:
1883 | 12230 do 12231 j=1,ni 1318
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1884:72:
1884 | if(ju(j).eq.0)goto 12231 1318
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1885:72:
1885 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1318
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1886:72:
1886 | 12231 continue 1319
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1887:72:
1887 | 12232 continue 1319
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1888:72:
1888 | al0=al0/max(bta,1.0e-3) 1319
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1889:72:
1889 | al=alf*al0 1320
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1890:72:
1890 | 12221 continue 1321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1891:72:
1891 | 12181 continue 1321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1892:72:
1892 | al2=al*omb 1321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1893:72:
1893 | al1=al*bta 1321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1894:72:
1894 | tlam=bta*(2.0*al-al0) 1322
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1895:72:
1895 | 12240 do 12241 k=1,ni 1322
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1896:72:
1896 | if(ixx(k).eq.1)goto 12241 1322
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1897:72:
1897 | if(ju(k).eq.0)goto 12241 1323
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1898:72:
1898 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1324
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1899:72:
1899 | 12241 continue 1325
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1900:72:
1900 | 12242 continue 1325
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1901:72:
1901 | 10680 continue 1326
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1902:72:
1902 | 12250 continue 1326
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1903:72:
1903 | 12251 continue 1326
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1904:72:
1904 | bs(0)=b(0) 1326
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1905:72:
1905 | if(nin.gt.0) bs(m(1:nin))=b(m(1:nin)) 1327
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1906:72:
1906 | if(kopt .ne. 0)goto 12271 1328
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1907:72:
1907 | 12280 do 12281 j=1,ni 1328
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1908:72:
1908 | if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2) 1328
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1909:72:
1909 | 12281 continue 1329
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1910:72:
1910 | 12282 continue 1329
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1911:72:
1911 | 12271 continue 1330
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1912:72:
1912 | 12290 continue 1330
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1913:72:
1913 | 12291 continue 1330
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1914:72:
1914 | nlp=nlp+1 1330
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1915:72:
1915 | dlx=0.0 1331
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1916:72:
1916 | 12300 do 12301 k=1,ni 1331
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1917:72:
1917 | if(ixx(k).eq.0)goto 12301 1332
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1918:72:
1918 | bk=b(k) 1332
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1919:72:
1919 | gk=dot_product(r,x(:,k)) 1333
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1920:72:
1920 | u=gk+xv(k)*b(k) 1333
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1921:72:
1921 | au=abs(u)-vp(k)*al1 1334
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1922:72:
1922 | if(au .gt. 0.0)goto 12321 1334
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1923:72:
1923 | b(k)=0.0 1334
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1924:72:
1924 | goto 12331 1335
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1925:72:
1925 | 12321 continue 1335
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1926:72:
1926 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1335
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1927:72:
1927 | 12331 continue 1336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1928:72:
1928 | 12311 continue 1336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1929:72:
1929 | d=b(k)-bk 1336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1930:72:
1930 | if(abs(d).le.0.0)goto 12301 1336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1931:72:
1931 | dlx=max(dlx,xv(k)*d**2) 1337
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1932:72:
1932 | r=r-d*v*x(:,k) 1338
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1933:72:
1933 | if(mm(k) .ne. 0)goto 12351 1338
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1934:72:
1934 | nin=nin+1 1338
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1935:72:
1935 | if(nin.gt.nx)goto 12302 1339
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1936:72:
1936 | mm(k)=nin 1339
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1937:72:
1937 | m(nin)=k 1340
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1938:72:
1938 | 12351 continue 1341
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1939:72:
1939 | 12301 continue 1342
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1940:72:
1940 | 12302 continue 1342
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1941:72:
1941 | if(nin.gt.nx)goto 12292 1343
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1942:72:
1942 | d=sum(r)/xmz 1344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1943:72:
1943 | if(d .eq. 0.0)goto 12371 1344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1944:72:
1944 | b(0)=b(0)+d 1344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1945:72:
1945 | dlx=max(dlx,xmz*d**2) 1344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1946:72:
1946 | r=r-d*v 1344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1947:72:
1947 | 12371 continue 1345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1948:72:
1948 | if(dlx.lt.shr)goto 12292 1345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1949:72:
1949 | if(nlp .le. maxit)goto 12391 1345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1950:72:
1950 | jerr=-ilm 1345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1951:72:
1951 | return 1345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1952:72:
1952 | 12391 continue 1346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1953:72:
1953 | 12400 continue 1346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1954:72:
1954 | 12401 continue 1346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1955:72:
1955 | nlp=nlp+1 1346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1956:72:
1956 | dlx=0.0 1347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1957:72:
1957 | 12410 do 12411 l=1,nin 1347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1958:72:
1958 | k=m(l) 1347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1959:72:
1959 | bk=b(k) 1348
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1960:72:
1960 | gk=dot_product(r,x(:,k)) 1349
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1961:72:
1961 | u=gk+xv(k)*b(k) 1349
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1962:72:
1962 | au=abs(u)-vp(k)*al1 1350
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1963:72:
1963 | if(au .gt. 0.0)goto 12431 1350
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1964:72:
1964 | b(k)=0.0 1350
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1965:72:
1965 | goto 12441 1351
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1966:72:
1966 | 12431 continue 1351
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1967:72:
1967 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1351
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1968:72:
1968 | 12441 continue 1352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1969:72:
1969 | 12421 continue 1352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1970:72:
1970 | d=b(k)-bk 1352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1971:72:
1971 | if(abs(d).le.0.0)goto 12411 1352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1972:72:
1972 | dlx=max(dlx,xv(k)*d**2) 1353
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1973:72:
1973 | r=r-d*v*x(:,k) 1354
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1974:72:
1974 | 12411 continue 1355
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1975:72:
1975 | 12412 continue 1355
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1976:72:
1976 | d=sum(r)/xmz 1356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1977:72:
1977 | if(d .eq. 0.0)goto 12461 1356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1978:72:
1978 | b(0)=b(0)+d 1356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1979:72:
1979 | dlx=max(dlx,xmz*d**2) 1356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1980:72:
1980 | r=r-d*v 1356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1981:72:
1981 | 12461 continue 1357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1982:72:
1982 | if(dlx.lt.shr)goto 12402 1357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1983:72:
1983 | if(nlp .le. maxit)goto 12481 1357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1984:72:
1984 | jerr=-ilm 1357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1985:72:
1985 | return 1357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1986:72:
1986 | 12481 continue 1358
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1987:72:
1987 | goto 12401 1359
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1988:72:
1988 | 12402 continue 1359
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1989:72:
1989 | goto 12291 1360
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1990:72:
1990 | 12292 continue 1360
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1991:72:
1991 | if(nin.gt.nx)goto 12252 1361
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1992:72:
1992 | 12490 do 12491 i=1,no 1361
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1993:72:
1993 | fi=b(0)+g(i) 1362
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1994:72:
1994 | if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin))) 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1995:72:
1995 | if(fi .ge. fmin)goto 12511 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1996:72:
1996 | q(i)=0.0 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1997:72:
1997 | goto 12501 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1998:72:
1998 | 12511 if(fi .le. fmax)goto 12521 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1999:72:
1999 | q(i)=1.0 1363
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2000:72:
2000 | goto 12531 1364
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2001:72:
2001 | 12521 continue 1364
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2002:72:
2002 | q(i)=1.0/(1.0+exp(-fi)) 1364
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2003:72:
2003 | 12531 continue 1365
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2004:72:
2004 | 12501 continue 1365
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2005:72:
2005 | 12491 continue 1366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2006:72:
2006 | 12492 continue 1366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2007:72:
2007 | v=w*q*(1.0-q) 1366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2008:72:
2008 | xmz=sum(v) 1366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2009:72:
2009 | if(xmz.le.vmin)goto 12252 1366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2010:72:
2010 | r=w*(y-q) 1367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2011:72:
2011 | if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551 1367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2012:72:
2012 | ix=0 1368
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2013:72:
2013 | 12560 do 12561 j=1,nin 1368
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2014:72:
2014 | k=m(j) 1369
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2015:72:
2015 | if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561 1369
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2016:72:
2016 | ix=1 1369
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2017:72:
2017 | goto 12562 1370
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2018:72:
2018 | 12561 continue 1371
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2019:72:
2019 | 12562 continue 1371
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2020:72:
2020 | if(ix .ne. 0)goto 12581 1372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2021:72:
2021 | 12590 do 12591 k=1,ni 1372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2022:72:
2022 | if(ixx(k).eq.1)goto 12591 1372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2023:72:
2023 | if(ju(k).eq.0)goto 12591 1373
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2024:72:
2024 | ga(k)=abs(dot_product(r,x(:,k))) 1374
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2025:72:
2025 | if(ga(k) .le. al1*vp(k))goto 12611 1374
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2026:72:
2026 | ixx(k)=1 1374
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2027:72:
2027 | ix=1 1374
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2028:72:
2028 | 12611 continue 1375
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2029:72:
2029 | 12591 continue 1376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2030:72:
2030 | 12592 continue 1376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2031:72:
2031 | if(ix.eq.1) go to 10680 1377
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2032:72:
2032 | goto 12252 1378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2033:72:
2033 | 12581 continue 1379
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2034:72:
2034 | 12551 continue 1380
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2035:72:
2035 | goto 12251 1381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2036:72:
2036 | 12252 continue 1381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2037:72:
2037 | if(nin .le. nx)goto 12631 1381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2038:72:
2038 | jerr=-10000-ilm 1381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2039:72:
2039 | goto 12172 1381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2040:72:
2040 | 12631 continue 1382
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2041:72:
2041 | if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin)) 1382
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2042:72:
2042 | kin(ilm)=nin 1383
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2043:72:
2043 | a0(ilm)=b(0) 1383
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2044:72:
2044 | alm(ilm)=al 1383
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2045:72:
2045 | lmu=ilm 1384
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2046:72:
2046 | devi=dev2(no,w,y,q,pmin) 1385
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2047:72:
2047 | dev(ilm)=(dev1-devi)/dev0 1385
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2048:72:
2048 | if(xmz.le.vmin)goto 12172 1386
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2049:72:
2049 | if(ilm.lt.mnl)goto 12171 1386
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2050:72:
2050 | if(flmin.ge.1.0)goto 12171 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2051:72:
2051 | me=0 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2052:72:
2052 | 12640 do 12641 j=1,nin 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2053:72:
2053 | if(a(j,ilm).ne.0.0) me=me+1 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2054:72:
2054 | 12641 continue 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2055:72:
2055 | 12642 continue 1387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2056:72:
2056 | if(me.gt.ne)goto 12172 1388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2057:72:
2057 | if(dev(ilm).gt.devmax)goto 12172 1388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2058:72:
2058 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172 1389
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2059:72:
2059 | 12171 continue 1390
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2060:72:
2060 | 12172 continue 1390
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2061:72:
2061 | g=log(q/(1.0-q)) 1391
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2062:72:
2062 | deallocate(b,bs,v,r,xv,q,mm,ga,ixx) 1392
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2063:72:
2063 | return 1393
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2064:72:
2064 | end 1394
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2065:72:
2065 | function dev2(n,w,y,p,pmin) 1395
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2066:72:
2066 | real w(n),y(n),p(n) 1396
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2067:72:
2067 | pmax=1.0-pmin 1396
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2068:72:
2068 | s=0.0 1397
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2069:72:
2069 | 12650 do 12651 i=1,n 1397
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2070:72:
2070 | pi=min(max(pmin,p(i)),pmax) 1398
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2071:72:
2071 | s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi)) 1399
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2072:72:
2072 | 12651 continue 1400
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2073:72:
2073 | 12652 continue 1400
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2074:72:
2074 | dev2=s 1401
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2075:72:
2075 | return 1402
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2076:72:
2076 | end 1403
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2077:72:
2077 | function azero(n,y,g,q,jerr) 1404
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2078:72:
2078 | parameter(eps=1.0e-7) 1405
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2079:72:
2079 | real y(n),g(n),q(n) 1406
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2081:72:
2081 | allocate(e(1:n),stat=jerr) 1410
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2082:72:
2082 | allocate(p(1:n),stat=ierr) 1410
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2083:72:
2083 | jerr=jerr+ierr 1411
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2084:72:
2084 | allocate(w(1:n),stat=ierr) 1411
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2085:72:
2085 | jerr=jerr+ierr 1412
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2086:72:
2086 | if(jerr.ne.0) return 1413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2087:72:
2087 | az=0.0 1413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2088:72:
2088 | e=exp(-g) 1413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2089:72:
2089 | qy=dot_product(q,y) 1413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2090:72:
2090 | p=1.0/(1.0+e) 1414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2091:72:
2091 | 12660 continue 1414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2092:72:
2092 | 12661 continue 1414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2093:72:
2093 | w=q*p*(1.0-p) 1415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2094:72:
2094 | d=(qy-dot_product(q,p))/sum(w) 1415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2095:72:
2095 | az=az+d 1415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2096:72:
2096 | if(abs(d).lt.eps)goto 12662 1416
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2097:72:
2097 | ea0=exp(-az) 1416
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2098:72:
2098 | p=1.0/(1.0+ea0*e) 1417
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2099:72:
2099 | goto 12661 1418
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2100:72:
2100 | 12662 continue 1418
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2101:72:
2101 | azero=az 1419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2102:72:
2102 | deallocate(e,p,w) 1420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2103:72:
2103 | return 1421
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2104:72:
2104 | end 1422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2105:72:
2105 | subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul 1424
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2107:72:
2107 | parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1426
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2109:72:
2109 | real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam) 1427
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2110:72:
2110 | real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1428
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2111:72:
2111 | integer ju(ni),m(nx),kin(nlam) 1429
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2121:72:
2121 | allocate(r(1:no),stat=ierr) 1440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2122:72:
2122 | jerr=jerr+ierr 1441
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2123:72:
2123 | allocate(v(1:no),stat=ierr) 1441
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2124:72:
2124 | jerr=jerr+ierr 1442
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2125:72:
2125 | allocate(mm(1:ni),stat=ierr) 1442
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2126:72:
2126 | jerr=jerr+ierr 1443
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2127:72:
2127 | allocate(is(1:max(nc,ni)),stat=ierr) 1443
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2128:72:
2128 | jerr=jerr+ierr 1444
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2129:72:
2129 | allocate(sxp(1:no),stat=ierr) 1444
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2130:72:
2130 | jerr=jerr+ierr 1445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2131:72:
2131 | allocate(sxpl(1:no),stat=ierr) 1445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2132:72:
2132 | jerr=jerr+ierr 1446
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2133:72:
2133 | allocate(di(1:no),stat=ierr) 1446
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2134:72:
2134 | jerr=jerr+ierr 1447
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2135:72:
2135 | allocate(ga(1:ni),stat=ierr) 1447
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2136:72:
2136 | jerr=jerr+ierr 1448
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2137:72:
2137 | allocate(ixx(1:ni),stat=ierr) 1448
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2138:72:
2138 | jerr=jerr+ierr 1449
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2139:72:
2139 | if(jerr.ne.0) return 1450
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2140:72:
2140 | pmax=1.0-pmin 1450
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2141:72:
2141 | emin=pmin/pmax 1450
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2142:72:
2142 | emax=1.0/emin 1451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2143:72:
2143 | pfm=(1.0+pmin)*pmin 1451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2144:72:
2144 | pfx=(1.0-pmin)*pmax 1451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2145:72:
2145 | vmin=pfm*pmax 1452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2146:72:
2146 | bta=parm 1452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2147:72:
2147 | omb=1.0-bta 1452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2148:72:
2148 | dev1=0.0 1452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2149:72:
2149 | dev0=0.0 1453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2150:72:
2150 | 12670 do 12671 ic=1,nc 1453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2151:72:
2151 | q0=dot_product(w,y(:,ic)) 1454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2152:72:
2152 | if(q0 .gt. pmin)goto 12691 1454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2153:72:
2153 | jerr =8000+ic 1454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2154:72:
2154 | return 1454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2155:72:
2155 | 12691 continue 1455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2156:72:
2156 | if(q0 .lt. 1.0-pmin)goto 12711 1455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2157:72:
2157 | jerr =9000+ic 1455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2158:72:
2158 | return 1455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2159:72:
2159 | 12711 continue 1456
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2160:72:
2160 | b(0,ic)=log(q0) 1456
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2161:72:
2161 | dev1=dev1-q0*b(0,ic) 1456
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2162:72:
2162 | b(1:ni,ic)=0.0 1457
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2163:72:
2163 | 12671 continue 1458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2164:72:
2164 | 12672 continue 1458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2165:72:
2165 | ixx=0 1458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2166:72:
2166 | al=0.0 1459
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2167:72:
2167 | if(nonzero(no*nc,g) .ne. 0)goto 12731 1460
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2168:72:
2168 | b(0,:)=b(0,:)-sum(b(0,:))/nc 1460
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2169:72:
2169 | sxp=0.0 1461
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2170:72:
2170 | 12740 do 12741 ic=1,nc 1461
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2171:72:
2171 | q(:,ic)=exp(b(0,ic)) 1461
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2172:72:
2172 | sxp=sxp+q(:,ic) 1461
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2173:72:
2173 | 12741 continue 1462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2174:72:
2174 | 12742 continue 1462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2175:72:
2175 | goto 12751 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2176:72:
2176 | 12731 continue 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2177:72:
2177 | 12760 do 12761 i=1,no 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2178:72:
2178 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2179:72:
2179 | 12761 continue 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2180:72:
2180 | 12762 continue 1463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2181:72:
2181 | sxp=0.0 1464
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2182:72:
2182 | call kazero(nc,no,y,g,w,b(0,:),jerr) 1464
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2183:72:
2183 | if(jerr.ne.0) return 1465
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2184:72:
2184 | dev1=0.0 1466
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2185:72:
2185 | 12770 do 12771 ic=1,nc 1466
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2186:72:
2186 | q(:,ic)=b(0,ic)+g(:,ic) 1467
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2187:72:
2187 | dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1468
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2188:72:
2188 | q(:,ic)=exp(q(:,ic)) 1468
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2189:72:
2189 | sxp=sxp+q(:,ic) 1469
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2190:72:
2190 | 12771 continue 1470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2191:72:
2191 | 12772 continue 1470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2192:72:
2192 | sxpl=w*log(sxp) 1470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2193:72:
2193 | 12780 do 12781 ic=1,nc 1470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2194:72:
2194 | dev1=dev1+dot_product(y(:,ic),sxpl) 1470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2195:72:
2195 | 12781 continue 1471
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2196:72:
2196 | 12782 continue 1471
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2197:72:
2197 | 12751 continue 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2198:72:
2198 | 12721 continue 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2199:72:
2199 | 12790 do 12791 ic=1,nc 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2200:72:
2200 | 12800 do 12801 i=1,no 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2201:72:
2201 | if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic)) 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2202:72:
2202 | 12801 continue 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2203:72:
2203 | 12802 continue 1472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2204:72:
2204 | 12791 continue 1473
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2205:72:
2205 | 12792 continue 1473
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2206:72:
2206 | dev0=dev0+dev1 1474
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2207:72:
2207 | if(kopt .le. 0)goto 12821 1475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2208:72:
2208 | if(isd .le. 0)goto 12841 1475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2209:72:
2209 | xv=0.25 1475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2210:72:
2210 | goto 12851 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2211:72:
2211 | 12841 continue 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2212:72:
2212 | 12860 do 12861 j=1,ni 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2213:72:
2213 | if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2) 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2214:72:
2214 | 12861 continue 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2215:72:
2215 | 12862 continue 1476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2216:72:
2216 | 12851 continue 1477
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2217:72:
2217 | 12831 continue 1477
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2218:72:
2218 | 12821 continue 1478
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2219:72:
2219 | if(flmin .ge. 1.0)goto 12881 1478
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2220:72:
2220 | eqs=max(eps,flmin) 1478
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2221:72:
2221 | alf=eqs**(1.0/(nlam-1)) 1478
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2222:72:
2222 | 12881 continue 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2223:72:
2223 | m=0 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2224:72:
2224 | mm=0 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2225:72:
2225 | nin=0 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2226:72:
2226 | nlp=0 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2227:72:
2227 | mnl=min(mnlam,nlam) 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2228:72:
2228 | bs=0.0 1479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2229:72:
2229 | shr=shri*dev0 1480
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2230:72:
2230 | ga=0.0 1481
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2231:72:
2231 | 12890 do 12891 ic=1,nc 1481
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2232:72:
2232 | r=w*(y(:,ic)-q(:,ic)/sxp) 1482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2233:72:
2233 | 12900 do 12901 j=1,ni 1482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2234:72:
2234 | if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j)))) 1482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2235:72:
2235 | 12901 continue 1483
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2236:72:
2236 | 12902 continue 1483
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2237:72:
2237 | 12891 continue 1484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2238:72:
2238 | 12892 continue 1484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2239:72:
2239 | 12910 do 12911 ilm=1,nlam 1484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2240:72:
2240 | al0=al 1485
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2241:72:
2241 | if(flmin .lt. 1.0)goto 12931 1485
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2242:72:
2242 | al=ulam(ilm) 1485
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2243:72:
2243 | goto 12921 1486
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2244:72:
2244 | 12931 if(ilm .le. 2)goto 12941 1486
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2245:72:
2245 | al=al*alf 1486
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2246:72:
2246 | goto 12921 1487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2247:72:
2247 | 12941 if(ilm .ne. 1)goto 12951 1487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2248:72:
2248 | al=big 1487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2249:72:
2249 | goto 12961 1488
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2250:72:
2250 | 12951 continue 1488
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2251:72:
2251 | al0=0.0 1489
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2252:72:
2252 | 12970 do 12971 j=1,ni 1489
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2253:72:
2253 | if(ju(j).eq.0)goto 12971 1489
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2254:72:
2254 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1489
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2255:72:
2255 | 12971 continue 1490
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2256:72:
2256 | 12972 continue 1490
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2257:72:
2257 | al0=al0/max(bta,1.0e-3) 1490
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2258:72:
2258 | al=alf*al0 1491
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2259:72:
2259 | 12961 continue 1492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2260:72:
2260 | 12921 continue 1492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2261:72:
2261 | al2=al*omb 1492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2262:72:
2262 | al1=al*bta 1492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2263:72:
2263 | tlam=bta*(2.0*al-al0) 1493
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2264:72:
2264 | 12980 do 12981 k=1,ni 1493
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2265:72:
2265 | if(ixx(k).eq.1)goto 12981 1493
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2266:72:
2266 | if(ju(k).eq.0)goto 12981 1494
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2267:72:
2267 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1495
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2268:72:
2268 | 12981 continue 1496
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2269:72:
2269 | 12982 continue 1496
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2270:72:
2270 | 10680 continue 1497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2271:72:
2271 | 12990 continue 1497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2272:72:
2272 | 12991 continue 1497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2273:72:
2273 | ix=0 1497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2274:72:
2274 | jx=ix 1497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2275:72:
2275 | ig=0 1498
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2276:72:
2276 | 13000 do 13001 ic=1,nc 1498
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2277:72:
2277 | bs(0,ic)=b(0,ic) 1499
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2278:72:
2278 | if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic) 1500
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2279:72:
2279 | xmz=0.0 1501
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2280:72:
2280 | 13010 do 13011 i=1,no 1501
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2281:72:
2281 | pic=q(i,ic)/sxp(i) 1502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2282:72:
2282 | if(pic .ge. pfm)goto 13031 1502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2283:72:
2283 | pic=0.0 1502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2284:72:
2284 | v(i)=0.0 1502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2285:72:
2285 | goto 13021 1503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2286:72:
2286 | 13031 if(pic .le. pfx)goto 13041 1503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2287:72:
2287 | pic=1.0 1503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2288:72:
2288 | v(i)=0.0 1503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2289:72:
2289 | goto 13051 1504
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2290:72:
2290 | 13041 continue 1504
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2291:72:
2291 | v(i)=w(i)*pic*(1.0-pic) 1504
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2292:72:
2292 | xmz=xmz+v(i) 1504
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2293:72:
2293 | 13051 continue 1505
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2294:72:
2294 | 13021 continue 1505
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2295:72:
2295 | r(i)=w(i)*(y(i,ic)-pic) 1506
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2296:72:
2296 | 13011 continue 1507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2297:72:
2297 | 13012 continue 1507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2298:72:
2298 | if(xmz.le.vmin)goto 13001 1507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2299:72:
2299 | ig=1 1508
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2300:72:
2300 | if(kopt .ne. 0)goto 13071 1509
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2301:72:
2301 | 13080 do 13081 j=1,ni 1509
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2302:72:
2302 | if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2) 1509
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2303:72:
2303 | 13081 continue 1510
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2304:72:
2304 | 13082 continue 1510
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2305:72:
2305 | 13071 continue 1511
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2306:72:
2306 | 13090 continue 1511
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2307:72:
2307 | 13091 continue 1511
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2308:72:
2308 | nlp=nlp+1 1511
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2309:72:
2309 | dlx=0.0 1512
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2310:72:
2310 | 13100 do 13101 k=1,ni 1512
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2311:72:
2311 | if(ixx(k).eq.0)goto 13101 1513
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2312:72:
2312 | bk=b(k,ic) 1513
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2313:72:
2313 | gk=dot_product(r,x(:,k)) 1514
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2314:72:
2314 | u=gk+xv(k,ic)*b(k,ic) 1514
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2315:72:
2315 | au=abs(u)-vp(k)*al1 1515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2316:72:
2316 | if(au .gt. 0.0)goto 13121 1515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2317:72:
2317 | b(k,ic)=0.0 1515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2318:72:
2318 | goto 13131 1516
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2319:72:
2319 | 13121 continue 1516
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2320:72:
2320 | b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1516
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2321:72:
2321 | 13131 continue 1517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2322:72:
2322 | 13111 continue 1517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2323:72:
2323 | d=b(k,ic)-bk 1517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2324:72:
2324 | if(abs(d).le.0.0)goto 13101 1518
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2325:72:
2325 | dlx=max(dlx,xv(k,ic)*d**2) 1518
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2326:72:
2326 | r=r-d*v*x(:,k) 1519
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2327:72:
2327 | if(mm(k) .ne. 0)goto 13151 1519
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2328:72:
2328 | nin=nin+1 1520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2329:72:
2329 | if(nin .le. nx)goto 13171 1520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2330:72:
2330 | jx=1 1520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2331:72:
2331 | goto 13102 1520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2332:72:
2332 | 13171 continue 1521
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2333:72:
2333 | mm(k)=nin 1521
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2334:72:
2334 | m(nin)=k 1522
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2335:72:
2335 | 13151 continue 1523
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2336:72:
2336 | 13101 continue 1524
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2337:72:
2337 | 13102 continue 1524
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2338:72:
2338 | if(jx.gt.0)goto 13092 1525
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2339:72:
2339 | d=sum(r)/xmz 1526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2340:72:
2340 | if(d .eq. 0.0)goto 13191 1526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2341:72:
2341 | b(0,ic)=b(0,ic)+d 1526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2342:72:
2342 | dlx=max(dlx,xmz*d**2) 1526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2343:72:
2343 | r=r-d*v 1526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2344:72:
2344 | 13191 continue 1527
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2345:72:
2345 | if(dlx.lt.shr)goto 13092 1528
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2346:72:
2346 | if(nlp .le. maxit)goto 13211 1528
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2347:72:
2347 | jerr=-ilm 1528
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2348:72:
2348 | return 1528
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2349:72:
2349 | 13211 continue 1529
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2350:72:
2350 | 13220 continue 1529
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2351:72:
2351 | 13221 continue 1529
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2352:72:
2352 | nlp=nlp+1 1529
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2353:72:
2353 | dlx=0.0 1530
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2354:72:
2354 | 13230 do 13231 l=1,nin 1530
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2355:72:
2355 | k=m(l) 1530
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2356:72:
2356 | bk=b(k,ic) 1531
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2357:72:
2357 | gk=dot_product(r,x(:,k)) 1532
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2358:72:
2358 | u=gk+xv(k,ic)*b(k,ic) 1532
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2359:72:
2359 | au=abs(u)-vp(k)*al1 1533
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2360:72:
2360 | if(au .gt. 0.0)goto 13251 1533
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2361:72:
2361 | b(k,ic)=0.0 1533
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2362:72:
2362 | goto 13261 1534
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2363:72:
2363 | 13251 continue 1534
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2364:72:
2364 | b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1534
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2365:72:
2365 | 13261 continue 1535
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2366:72:
2366 | 13241 continue 1535
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2367:72:
2367 | d=b(k,ic)-bk 1535
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2368:72:
2368 | if(abs(d).le.0.0)goto 13231 1536
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2369:72:
2369 | dlx=max(dlx,xv(k,ic)*d**2) 1536
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2370:72:
2370 | r=r-d*v*x(:,k) 1537
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2371:72:
2371 | 13231 continue 1538
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2372:72:
2372 | 13232 continue 1538
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2373:72:
2373 | d=sum(r)/xmz 1539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2374:72:
2374 | if(d .eq. 0.0)goto 13281 1539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2375:72:
2375 | b(0,ic)=b(0,ic)+d 1540
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2376:72:
2376 | dlx=max(dlx,xmz*d**2) 1540
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2377:72:
2377 | r=r-d*v 1541
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2378:72:
2378 | 13281 continue 1542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2379:72:
2379 | if(dlx.lt.shr)goto 13222 1542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2380:72:
2380 | if(nlp .le. maxit)goto 13301 1542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2381:72:
2381 | jerr=-ilm 1542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2382:72:
2382 | return 1542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2383:72:
2383 | 13301 continue 1543
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2384:72:
2384 | goto 13221 1544
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2385:72:
2385 | 13222 continue 1544
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2386:72:
2386 | goto 13091 1545
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2387:72:
2387 | 13092 continue 1545
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2388:72:
2388 | if(jx.gt.0)goto 13002 1546
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2389:72:
2389 | if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1 1547
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2390:72:
2390 | if(ix .ne. 0)goto 13321 1548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2391:72:
2391 | 13330 do 13331 j=1,nin 1548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2392:72:
2392 | k=m(j) 1549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2393:72:
2393 | if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351 1549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2394:72:
2394 | ix=1 1549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2395:72:
2395 | goto 13332 1549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2396:72:
2396 | 13351 continue 1550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2397:72:
2397 | 13331 continue 1551
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2398:72:
2398 | 13332 continue 1551
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2399:72:
2399 | 13321 continue 1552
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2400:72:
2400 | 13360 do 13361 i=1,no 1552
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2401:72:
2401 | fi=b(0,ic)+g(i,ic) 1554
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2402:72:
2402 | if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin))) 1555
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2403:72:
2403 | fi=min(max(exmn,fi),exmx) 1555
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2404:72:
2404 | sxp(i)=sxp(i)-q(i,ic) 1556
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2405:72:
2405 | q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i)) 1557
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2406:72:
2406 | sxp(i)=sxp(i)+q(i,ic) 1558
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2407:72:
2407 | 13361 continue 1559
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2408:72:
2408 | 13362 continue 1559
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2409:72:
2409 | 13001 continue 1560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2410:72:
2410 | 13002 continue 1560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2411:72:
2411 | s=-sum(b(0,:))/nc 1560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2412:72:
2412 | b(0,:)=b(0,:)+s 1560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2413:72:
2413 | di=s 1561
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2414:72:
2414 | 13370 do 13371 j=1,nin 1561
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2415:72:
2415 | l=m(j) 1562
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2416:72:
2416 | if(vp(l) .gt. 0.0)goto 13391 1562
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2417:72:
2417 | s=sum(b(l,:))/nc 1562
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2418:72:
2418 | goto 13401 1563
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2419:72:
2419 | 13391 continue 1563
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2420:72:
2420 | s=elc(parm,nc,b(l,:),is) 1563
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2421:72:
2421 | 13401 continue 1564
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2422:72:
2422 | 13381 continue 1564
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2423:72:
2423 | b(l,:)=b(l,:)-s 1564
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2424:72:
2424 | di=di-s*x(:,l) 1565
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2425:72:
2425 | 13371 continue 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2426:72:
2426 | 13372 continue 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2427:72:
2427 | di=exp(di) 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2428:72:
2428 | sxp=sxp*di 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2429:72:
2429 | 13410 do 13411 ic=1,nc 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2430:72:
2430 | q(:,ic)=q(:,ic)*di 1566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2431:72:
2431 | 13411 continue 1567
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2432:72:
2432 | 13412 continue 1567
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2433:72:
2433 | if(jx.gt.0)goto 12992 1567
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2434:72:
2434 | if(ig.eq.0)goto 12992 1568
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2435:72:
2435 | if(ix .ne. 0)goto 13431 1569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2436:72:
2436 | 13440 do 13441 k=1,ni 1569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2437:72:
2437 | if(ixx(k).eq.1)goto 13441 1569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2438:72:
2438 | if(ju(k).eq.0)goto 13441 1569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2439:72:
2439 | ga(k)=0.0 1569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2440:72:
2440 | 13441 continue 1570
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2441:72:
2441 | 13442 continue 1570
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2442:72:
2442 | 13450 do 13451 ic=1,nc 1570
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2443:72:
2443 | r=w*(y(:,ic)-q(:,ic)/sxp) 1571
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2444:72:
2444 | 13460 do 13461 k=1,ni 1571
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2445:72:
2445 | if(ixx(k).eq.1)goto 13461 1571
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2446:72:
2446 | if(ju(k).eq.0)goto 13461 1572
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2447:72:
2447 | ga(k)=max(ga(k),abs(dot_product(r,x(:,k)))) 1573
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2448:72:
2448 | 13461 continue 1574
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2449:72:
2449 | 13462 continue 1574
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2450:72:
2450 | 13451 continue 1575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2451:72:
2451 | 13452 continue 1575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2452:72:
2452 | 13470 do 13471 k=1,ni 1575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2453:72:
2453 | if(ixx(k).eq.1)goto 13471 1575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2454:72:
2454 | if(ju(k).eq.0)goto 13471 1576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2455:72:
2455 | if(ga(k) .le. al1*vp(k))goto 13491 1576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2456:72:
2456 | ixx(k)=1 1576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2457:72:
2457 | ix=1 1576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2458:72:
2458 | 13491 continue 1577
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2459:72:
2459 | 13471 continue 1578
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2460:72:
2460 | 13472 continue 1578
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2461:72:
2461 | if(ix.eq.1) go to 10680 1579
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2462:72:
2462 | goto 12992 1580
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2463:72:
2463 | 13431 continue 1581
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2464:72:
2464 | goto 12991 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2465:72:
2465 | 12992 continue 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2466:72:
2466 | if(jx .le. 0)goto 13511 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2467:72:
2467 | jerr=-10000-ilm 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2468:72:
2468 | goto 12912 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2469:72:
2469 | 13511 continue 1582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2470:72:
2470 | devi=0.0 1583
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2471:72:
2471 | 13520 do 13521 ic=1,nc 1584
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2472:72:
2472 | if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic) 1584
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2473:72:
2473 | a0(ic,ilm)=b(0,ic) 1585
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2474:72:
2474 | 13530 do 13531 i=1,no 1585
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2475:72:
2475 | if(y(i,ic).le.0.0)goto 13531 1586
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2476:72:
2476 | devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i)) 1587
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2477:72:
2477 | 13531 continue 1588
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2478:72:
2478 | 13532 continue 1588
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2479:72:
2479 | 13521 continue 1589
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2480:72:
2480 | 13522 continue 1589
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2481:72:
2481 | kin(ilm)=nin 1589
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2482:72:
2482 | alm(ilm)=al 1589
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2483:72:
2483 | lmu=ilm 1590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2484:72:
2484 | dev(ilm)=(dev1-devi)/dev0 1590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2485:72:
2485 | if(ig.eq.0)goto 12912 1591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2486:72:
2486 | if(ilm.lt.mnl)goto 12911 1591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2487:72:
2487 | if(flmin.ge.1.0)goto 12911 1592
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2488:72:
2488 | if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912 1593
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2489:72:
2489 | if(dev(ilm).gt.devmax)goto 12912 1593
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2490:72:
2490 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912 1594
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2491:72:
2491 | 12911 continue 1595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2492:72:
2492 | 12912 continue 1595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2493:72:
2493 | g=log(q) 1595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2494:72:
2494 | 13540 do 13541 i=1,no 1595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2495:72:
2495 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2496:72:
2496 | 13541 continue 1596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2497:72:
2497 | 13542 continue 1596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2498:72:
2498 | deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx) 1597
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2499:72:
2499 | return 1598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2500:72:
2500 | end 1599
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2501:72:
2501 | subroutine kazero(kk,n,y,g,q,az,jerr) 1600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2502:72:
2502 | parameter(eps=1.0e-7) 1601
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2503:72:
2503 | real y(n,kk),g(n,kk),q(n),az(kk) 1602
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2507:72:
2507 | allocate(s(1:n),stat=ierr) 1607
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2508:72:
2508 | jerr=jerr+ierr 1608
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2509:72:
2509 | if(jerr.ne.0) return 1609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2510:72:
2510 | az=0.0 1609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2511:72:
2511 | e=exp(g) 1609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2512:72:
2512 | 13550 do 13551 i=1,n 1609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2513:72:
2513 | s(i)=sum(e(i,:)) 1609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2514:72:
2514 | 13551 continue 1610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2515:72:
2515 | 13552 continue 1610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2516:72:
2516 | 13560 continue 1610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2517:72:
2517 | 13561 continue 1610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2518:72:
2518 | dm=0.0 1611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2519:72:
2519 | 13570 do 13571 k=1,kk 1611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2520:72:
2520 | t=0.0 1611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2521:72:
2521 | u=t 1612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2522:72:
2522 | 13580 do 13581 i=1,n 1612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2523:72:
2523 | pik=e(i,k)/s(i) 1613
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2524:72:
2524 | t=t+q(i)*(y(i,k)-pik) 1613
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2525:72:
2525 | u=u+q(i)*pik*(1.0-pik) 1614
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2526:72:
2526 | 13581 continue 1615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2527:72:
2527 | 13582 continue 1615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2528:72:
2528 | d=t/u 1615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2529:72:
2529 | az(k)=az(k)+d 1615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2530:72:
2530 | ed=exp(d) 1615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2531:72:
2531 | dm=max(dm,abs(d)) 1616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2532:72:
2532 | 13590 do 13591 i=1,n 1616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2533:72:
2533 | z=e(i,k) 1616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2534:72:
2534 | e(i,k)=z*ed 1616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2535:72:
2535 | s(i)=s(i)-z+e(i,k) 1616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2536:72:
2536 | 13591 continue 1617
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2537:72:
2537 | 13592 continue 1617
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2538:72:
2538 | 13571 continue 1618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2539:72:
2539 | 13572 continue 1618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2540:72:
2540 | if(dm.lt.eps)goto 13562 1618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2541:72:
2541 | goto 13561 1619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2542:72:
2542 | 13562 continue 1619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2543:72:
2543 | az=az-sum(az)/kk 1620
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2544:72:
2544 | deallocate(e,s) 1621
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2545:72:
2545 | return 1622
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2546:72:
2546 | end 1623
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2547:72:
2547 | function elc(parm,n,a,m) 1624
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2548:72:
2548 | real a(n) 1624
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2549:72:
2549 | integer m(n) 1625
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2550:72:
2550 | fn=n 1625
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2551:72:
2551 | am=sum(a)/fn 1626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2552:72:
2552 | if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611 1626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2553:72:
2553 | elc=am 1626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2554:72:
2554 | return 1626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2555:72:
2555 | 13611 continue 1627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2556:72:
2556 | 13620 do 13621 i=1,n 1627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2557:72:
2557 | m(i)=i 1627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2558:72:
2558 | 13621 continue 1627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2559:72:
2559 | 13622 continue 1627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2560:72:
2560 | call psort7(a,m,1,n) 1628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2561:72:
2561 | if(a(m(1)) .ne. a(m(n)))goto 13641 1628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2562:72:
2562 | elc=a(1) 1628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2563:72:
2563 | return 1628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2564:72:
2564 | 13641 continue 1629
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2565:72:
2565 | if(mod(n,2) .ne. 1)goto 13661 1629
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2566:72:
2566 | ad=a(m(n/2+1)) 1629
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2567:72:
2567 | goto 13671 1630
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2568:72:
2568 | 13661 continue 1630
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2569:72:
2569 | ad=0.5*(a(m(n/2+1))+a(m(n/2))) 1630
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2570:72:
2570 | 13671 continue 1631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2571:72:
2571 | 13651 continue 1631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2572:72:
2572 | if(parm .ne. 1.0)goto 13691 1631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2573:72:
2573 | elc=ad 1631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2574:72:
2574 | return 1631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2575:72:
2575 | 13691 continue 1632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2576:72:
2576 | b1=min(am,ad) 1632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2577:72:
2577 | b2=max(am,ad) 1632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2578:72:
2578 | k2=1 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2579:72:
2579 | 13700 continue 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2580:72:
2580 | 13701 if(a(m(k2)).gt.b1)goto 13702 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2581:72:
2581 | k2=k2+1 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2582:72:
2582 | goto 13701 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2583:72:
2583 | 13702 continue 1633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2584:72:
2584 | k1=k2-1 1634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2585:72:
2585 | 13710 continue 1634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2586:72:
2586 | 13711 if(a(m(k2)).ge.b2)goto 13712 1634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2587:72:
2587 | k2=k2+1 1634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2588:72:
2588 | goto 13711 1635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2589:72:
2589 | 13712 continue 1635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2590:72:
2590 | r=parm/((1.0-parm)*fn) 1635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2591:72:
2591 | is=0 1635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2592:72:
2592 | sm=n-2*(k1-1) 1636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2593:72:
2593 | 13720 do 13721 k=k1,k2-1 1636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2594:72:
2594 | sm=sm-2.0 1636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2595:72:
2595 | s=r*sm+am 1637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2596:72:
2596 | if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741 1637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2597:72:
2597 | is=k 1637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2598:72:
2598 | goto 13722 1637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2599:72:
2599 | 13741 continue 1638
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2600:72:
2600 | 13721 continue 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2601:72:
2601 | 13722 continue 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2602:72:
2602 | if(is .eq. 0)goto 13761 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2603:72:
2603 | elc=s 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2604:72:
2604 | return 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2605:72:
2605 | 13761 continue 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2606:72:
2606 | r2=2.0*r 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2607:72:
2607 | s1=a(m(k1)) 1639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2608:72:
2608 | am2=2.0*am 1640
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2609:72:
2609 | cri=r2*sum(abs(a-s1))+s1*(s1-am2) 1640
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2610:72:
2610 | elc=s1 1641
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2611:72:
2611 | 13770 do 13771 k=k1+1,k2 1641
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2612:72:
2612 | s=a(m(k)) 1641
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2613:72:
2613 | if(s.eq.s1)goto 13771 1642
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2614:72:
2614 | c=r2*sum(abs(a-s))+s*(s-am2) 1643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2615:72:
2615 | if(c .ge. cri)goto 13791 1643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2616:72:
2616 | cri=c 1643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2617:72:
2617 | elc=s 1643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2618:72:
2618 | 13791 continue 1643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2619:72:
2619 | s1=s 1644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2620:72:
2620 | 13771 continue 1645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2621:72:
2621 | 13772 continue 1645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2622:72:
2622 | return 1646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2623:72:
2623 | end 1647
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2624:72:
2624 | function nintot(ni,nx,nc,a,m,nin,is) 1648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2625:72:
2625 | real a(nx,nc) 1648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2626:72:
2626 | integer m(nx),is(ni) 1649
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2627:72:
2627 | is=0 1649
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2628:72:
2628 | nintot=0 1650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2629:72:
2629 | 13800 do 13801 ic=1,nc 1650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2630:72:
2630 | 13810 do 13811 j=1,nin 1650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2631:72:
2631 | k=m(j) 1650
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2632:72:
2632 | if(is(k).ne.0)goto 13811 1651
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2633:72:
2633 | if(a(j,ic).eq.0.0)goto 13811 1651
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2634:72:
2634 | is(k)=k 1651
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2635:72:
2635 | nintot=nintot+1 1652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2636:72:
2636 | 13811 continue 1652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2637:72:
2637 | 13812 continue 1652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2638:72:
2638 | 13801 continue 1653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2639:72:
2639 | 13802 continue 1653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2640:72:
2640 | return 1654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2641:72:
2641 | end 1655
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2642:72:
2642 | subroutine luncomp(ni,nx,nc,ca,ia,nin,a) 1656
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2643:72:
2643 | real ca(nx,nc),a(ni,nc) 1656
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2644:72:
2644 | integer ia(nx) 1657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2645:72:
2645 | a=0.0 1658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2646:72:
2646 | 13820 do 13821 ic=1,nc 1658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2647:72:
2647 | if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic) 1658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2648:72:
2648 | 13821 continue 1659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2649:72:
2649 | 13822 continue 1659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2650:72:
2650 | return 1660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2651:72:
2651 | end 1661
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2652:72:
2652 | subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans) 1662
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2653:72:
2653 | real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt) 1662
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2654:72:
2654 | integer ia(nx) 1663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2655:72:
2655 | 13830 do 13831 i=1,nt 1663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2656:72:
2656 | 13840 do 13841 ic=1,nc 1663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2657:72:
2657 | ans(ic,i)=a0(ic) 1665
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2658:72:
2658 | if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1 1666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2660:72:
2660 | 13841 continue 1666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2661:72:
2661 | 13842 continue 1666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2662:72:
2662 | 13831 continue 1667
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2663:72:
2663 | 13832 continue 1667
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2664:72:
2664 | return 1668
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2665:72:
2665 | end 1669
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2666:72:
2666 | subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl 1671
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2669:72:
2669 | real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam) 1672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2670:72:
2670 | real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1673
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2671:72:
2671 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1674
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2674:72:
2674 | if(maxval(vp) .gt. 0.0)goto 13861 1678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2675:72:
2675 | jerr=10000 1678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2676:72:
2676 | return 1678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2677:72:
2677 | 13861 continue 1679
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2678:72:
2678 | allocate(ww(1:no),stat=jerr) 1680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2679:72:
2679 | allocate(ju(1:ni),stat=ierr) 1680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2680:72:
2680 | jerr=jerr+ierr 1681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2681:72:
2681 | allocate(vq(1:ni),stat=ierr) 1681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2682:72:
2682 | jerr=jerr+ierr 1682
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2683:72:
2683 | allocate(xm(1:ni),stat=ierr) 1682
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2684:72:
2684 | jerr=jerr+ierr 1683
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2685:72:
2685 | allocate(xs(1:ni),stat=ierr) 1683
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2686:72:
2686 | jerr=jerr+ierr 1684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2687:72:
2687 | if(jerr.ne.0) return 1685
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2688:72:
2688 | call spchkvars(no,ni,x,ix,ju) 1686
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2689:72:
2689 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2690:72:
2690 | if(maxval(ju) .gt. 0)goto 13881 1687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2691:72:
2691 | jerr=7777 1687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2692:72:
2692 | return 1687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2693:72:
2693 | 13881 continue 1688
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2694:72:
2694 | vq=max(0.0,vp) 1688
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2695:72:
2695 | vq=vq*ni/sum(vq) 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2696:72:
2696 | 13890 do 13891 i=1,no 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2697:72:
2697 | ww(i)=sum(y(i,:)) 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2698:72:
2698 | y(i,:)=y(i,:)/ww(i) 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2699:72:
2699 | 13891 continue 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2700:72:
2700 | 13892 continue 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2701:72:
2701 | sw=sum(ww) 1689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2702:72:
2702 | ww=ww/sw 1690
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2703:72:
2703 | call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs) 1691
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2704:72:
2704 | if(nc .ne. 1)goto 13911 1692
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2705:72:
2705 | call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n 1694
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2708:72:
2708 | goto 13921 1695
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2709:72:
2709 | 13911 continue 1696
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2710:72:
2710 | call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi 1698
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2713:72:
2713 | 13921 continue 1699
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2714:72:
2714 | 13901 continue 1699
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2715:72:
2715 | if(jerr.gt.0) return 1699
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2716:72:
2716 | dev0=2.0*sw*dev0 1700
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2717:72:
2717 | 13930 do 13931 k=1,lmu 1700
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2718:72:
2718 | nk=nin(k) 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2719:72:
2719 | 13940 do 13941 ic=1,nc 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2720:72:
2720 | if(isd .le. 0)goto 13961 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2721:72:
2721 | 13970 do 13971 l=1,nk 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2722:72:
2722 | ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2723:72:
2723 | 13971 continue 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2724:72:
2724 | 13972 continue 1701
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2725:72:
2725 | 13961 continue 1702
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2726:72:
2726 | a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk))) 1703
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2727:72:
2727 | 13941 continue 1704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2728:72:
2728 | 13942 continue 1704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2729:72:
2729 | 13931 continue 1705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2730:72:
2730 | 13932 continue 1705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2731:72:
2731 | deallocate(ww,ju,vq,xm,xs) 1706
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2732:72:
2732 | return 1707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2733:72:
2733 | end 1708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2734:72:
2734 | subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs) 1709
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2735:72:
2735 | real x(*),w(no),xm(ni),xs(ni) 1709
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2736:72:
2736 | integer ix(*),jx(*),ju(ni) 1710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2737:72:
2737 | 13980 do 13981 j=1,ni 1710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2738:72:
2738 | if(ju(j).eq.0)goto 13981 1710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2739:72:
2739 | jb=ix(j) 1710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2740:72:
2740 | je=ix(j+1)-1 1711
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2741:72:
2741 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1712
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2742:72:
2742 | if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j 1713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2744:72:
2744 | 13981 continue 1714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2745:72:
2745 | 13982 continue 1714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2746:72:
2746 | if(isd.eq.0) xs=1.0 1715
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2747:72:
2747 | return 1716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2748:72:
2748 | end 1717
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2749:72:
2749 | subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam, 1719
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2752:72:
2752 | parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2754:72:
2754 | real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam) 1722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2755:72:
2755 | real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1723
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2756:72:
2756 | real xb(ni),xs(ni) 1723
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2757:72:
2757 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1724
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2760:72:
2760 | allocate(b(0:ni),stat=jerr) 1729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2761:72:
2761 | allocate(xm(0:ni),stat=ierr) 1729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2762:72:
2762 | jerr=jerr+ierr 1730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2763:72:
2763 | allocate(xv(1:ni),stat=ierr) 1730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2764:72:
2764 | jerr=jerr+ierr 1731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2765:72:
2765 | allocate(bs(0:ni),stat=ierr) 1731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2766:72:
2766 | jerr=jerr+ierr 1732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2767:72:
2767 | allocate(ga(1:ni),stat=ierr) 1732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2768:72:
2768 | jerr=jerr+ierr 1733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2769:72:
2769 | allocate(mm(1:ni),stat=ierr) 1733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2770:72:
2770 | jerr=jerr+ierr 1734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2771:72:
2771 | allocate(ixx(1:ni),stat=ierr) 1734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2772:72:
2772 | jerr=jerr+ierr 1735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2773:72:
2773 | allocate(q(1:no),stat=ierr) 1735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2774:72:
2774 | jerr=jerr+ierr 1736
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2775:72:
2775 | allocate(r(1:no),stat=ierr) 1736
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2776:72:
2776 | jerr=jerr+ierr 1737
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2777:72:
2777 | allocate(v(1:no),stat=ierr) 1737
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2778:72:
2778 | jerr=jerr+ierr 1738
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2779:72:
2779 | allocate(sc(1:no),stat=ierr) 1738
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2780:72:
2780 | jerr=jerr+ierr 1739
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2781:72:
2781 | if(jerr.ne.0) return 1740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2782:72:
2782 | fmax=log(1.0/pmin-1.0) 1740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2783:72:
2783 | fmin=-fmax 1740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2784:72:
2784 | vmin=(1.0+pmin)*pmin*(1.0-pmin) 1741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2785:72:
2785 | bta=parm 1741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2786:72:
2786 | omb=1.0-bta 1742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2787:72:
2787 | q0=dot_product(w,y) 1742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2788:72:
2788 | if(q0 .gt. pmin)goto 14001 1742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2789:72:
2789 | jerr=8001 1742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2790:72:
2790 | return 1742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2791:72:
2791 | 14001 continue 1743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2792:72:
2792 | if(q0 .lt. 1.0-pmin)goto 14021 1743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2793:72:
2793 | jerr=9001 1743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2794:72:
2794 | return 1743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2795:72:
2795 | 14021 continue 1743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2796:72:
2796 | bz=log(q0/(1.0-q0)) 1744
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2797:72:
2797 | if(nonzero(no,g) .ne. 0)goto 14041 1744
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2798:72:
2798 | vi=q0*(1.0-q0) 1744
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2799:72:
2799 | b(0)=bz 1744
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2800:72:
2800 | v=vi*w 1745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2801:72:
2801 | r=w*(y-q0) 1745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2802:72:
2802 | q=q0 1745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2803:72:
2803 | xm(0)=vi 1745
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2804:72:
2804 | dev1=-(bz*q0+log(1.0-q0)) 1746
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2805:72:
2805 | goto 14051 1747
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2806:72:
2806 | 14041 continue 1747
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2807:72:
2807 | b(0)=azero(no,y,g,w,jerr) 1747
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2808:72:
2808 | if(jerr.ne.0) return 1748
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2809:72:
2809 | q=1.0/(1.0+exp(-b(0)-g)) 1748
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2810:72:
2810 | v=w*q*(1.0-q) 1748
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2811:72:
2811 | r=w*(y-q) 1748
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2812:72:
2812 | xm(0)=sum(v) 1749
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2813:72:
2813 | dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q))) 1750
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2814:72:
2814 | 14051 continue 1751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2815:72:
2815 | 14031 continue 1751
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2816:72:
2816 | if(kopt .le. 0)goto 14071 1752
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2817:72:
2817 | if(isd .le. 0)goto 14091 1752
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2818:72:
2818 | xv=0.25 1752
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2819:72:
2819 | goto 14101 1753
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2820:72:
2820 | 14091 continue 1754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2821:72:
2821 | 14110 do 14111 j=1,ni 1754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2822:72:
2822 | if(ju(j).eq.0)goto 14111 1754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2823:72:
2823 | jb=ix(j) 1754
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2824:72:
2824 | je=ix(j+1)-1 1755
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2825:72:
2825 | xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2) 1756
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2826:72:
2826 | 14111 continue 1757
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2827:72:
2827 | 14112 continue 1757
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2828:72:
2828 | 14101 continue 1758
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2829:72:
2829 | 14081 continue 1758
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2830:72:
2830 | 14071 continue 1759
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2831:72:
2831 | b(1:ni)=0.0 1759
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2832:72:
2832 | dev0=dev1 1760
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2833:72:
2833 | 14120 do 14121 i=1,no 1760
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2834:72:
2834 | if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i)) 1761
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2835:72:
2835 | if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i)) 1762
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2836:72:
2836 | 14121 continue 1763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2837:72:
2837 | 14122 continue 1763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2838:72:
2838 | if(flmin .ge. 1.0)goto 14141 1763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2839:72:
2839 | eqs=max(eps,flmin) 1763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2840:72:
2840 | alf=eqs**(1.0/(nlam-1)) 1763
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2841:72:
2841 | 14141 continue 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2842:72:
2842 | m=0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2843:72:
2843 | mm=0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2844:72:
2844 | nin=0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2845:72:
2845 | o=0.0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2846:72:
2846 | svr=o 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2847:72:
2847 | mnl=min(mnlam,nlam) 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2848:72:
2848 | bs=0.0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2849:72:
2849 | nlp=0 1764
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2850:72:
2850 | nin=nlp 1765
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2851:72:
2851 | shr=shri*dev0 1765
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2852:72:
2852 | al=0.0 1765
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2853:72:
2853 | ixx=0 1766
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2854:72:
2854 | 14150 do 14151 j=1,ni 1766
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2855:72:
2855 | if(ju(j).eq.0)goto 14151 1767
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2856:72:
2856 | jb=ix(j) 1767
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2857:72:
2857 | je=ix(j+1)-1 1767
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2858:72:
2858 | jn=ix(j+1)-ix(j) 1768
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2859:72:
2859 | sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1769
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2860:72:
2860 | gj=dot_product(sc(1:jn),x(jb:je)) 1770
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2861:72:
2861 | ga(j)=abs((gj-svr*xb(j))/xs(j)) 1771
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2862:72:
2862 | 14151 continue 1772
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2863:72:
2863 | 14152 continue 1772
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2864:72:
2864 | 14160 do 14161 ilm=1,nlam 1772
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2865:72:
2865 | al0=al 1773
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2866:72:
2866 | if(flmin .lt. 1.0)goto 14181 1773
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2867:72:
2867 | al=ulam(ilm) 1773
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2868:72:
2868 | goto 14171 1774
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2869:72:
2869 | 14181 if(ilm .le. 2)goto 14191 1774
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2870:72:
2870 | al=al*alf 1774
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2871:72:
2871 | goto 14171 1775
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2872:72:
2872 | 14191 if(ilm .ne. 1)goto 14201 1775
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2873:72:
2873 | al=big 1775
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2874:72:
2874 | goto 14211 1776
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2875:72:
2875 | 14201 continue 1776
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2876:72:
2876 | al0=0.0 1777
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2877:72:
2877 | 14220 do 14221 j=1,ni 1777
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2878:72:
2878 | if(ju(j).eq.0)goto 14221 1777
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2879:72:
2879 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1777
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2880:72:
2880 | 14221 continue 1778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2881:72:
2881 | 14222 continue 1778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2882:72:
2882 | al0=al0/max(bta,1.0e-3) 1778
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2883:72:
2883 | al=alf*al0 1779
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2884:72:
2884 | 14211 continue 1780
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2885:72:
2885 | 14171 continue 1780
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2886:72:
2886 | al2=al*omb 1780
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2887:72:
2887 | al1=al*bta 1780
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2888:72:
2888 | tlam=bta*(2.0*al-al0) 1781
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2889:72:
2889 | 14230 do 14231 k=1,ni 1781
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2890:72:
2890 | if(ixx(k).eq.1)goto 14231 1781
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2891:72:
2891 | if(ju(k).eq.0)goto 14231 1782
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2892:72:
2892 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1783
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2893:72:
2893 | 14231 continue 1784
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2894:72:
2894 | 14232 continue 1784
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2895:72:
2895 | 10680 continue 1785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2896:72:
2896 | 14240 continue 1785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2897:72:
2897 | 14241 continue 1785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2898:72:
2898 | bs(0)=b(0) 1785
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2899:72:
2899 | if(nin.gt.0) bs(m(1:nin))=b(m(1:nin)) 1786
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2900:72:
2900 | 14250 do 14251 j=1,ni 1786
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2901:72:
2901 | if(ixx(j).eq.0)goto 14251 1787
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2902:72:
2902 | jb=ix(j) 1787
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2903:72:
2903 | je=ix(j+1)-1 1787
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2904:72:
2904 | jn=ix(j+1)-ix(j) 1788
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2905:72:
2905 | sc(1:jn)=v(jx(jb:je)) 1789
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2906:72:
2906 | xm(j)=dot_product(sc(1:jn),x(jb:je)) 1790
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2907:72:
2907 | if(kopt .ne. 0)goto 14271 1791
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2908:72:
2908 | xv(j)=dot_product(sc(1:jn),x(jb:je)**2) 1792
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2909:72:
2909 | xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2 1793
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2910:72:
2910 | 14271 continue 1794
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2911:72:
2911 | 14251 continue 1795
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2912:72:
2912 | 14252 continue 1795
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2913:72:
2913 | 14280 continue 1795
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2914:72:
2914 | 14281 continue 1795
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2915:72:
2915 | nlp=nlp+1 1795
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2916:72:
2916 | dlx=0.0 1796
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2917:72:
2917 | 14290 do 14291 k=1,ni 1796
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2918:72:
2918 | if(ixx(k).eq.0)goto 14291 1797
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2919:72:
2919 | jb=ix(k) 1797
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2920:72:
2920 | je=ix(k+1)-1 1797
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2921:72:
2921 | jn=ix(k+1)-ix(k) 1797
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2922:72:
2922 | bk=b(k) 1798
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2923:72:
2923 | sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1799
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2924:72:
2924 | gk=dot_product(sc(1:jn),x(jb:je)) 1800
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2925:72:
2925 | gk=(gk-svr*xb(k))/xs(k) 1801
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2926:72:
2926 | u=gk+xv(k)*b(k) 1801
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2927:72:
2927 | au=abs(u)-vp(k)*al1 1802
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2928:72:
2928 | if(au .gt. 0.0)goto 14311 1802
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2929:72:
2929 | b(k)=0.0 1802
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2930:72:
2930 | goto 14321 1803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2931:72:
2931 | 14311 continue 1803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2932:72:
2932 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1803
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2933:72:
2933 | 14321 continue 1804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2934:72:
2934 | 14301 continue 1804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2935:72:
2935 | d=b(k)-bk 1804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2936:72:
2936 | if(abs(d).le.0.0)goto 14291 1804
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2937:72:
2937 | dlx=max(dlx,xv(k)*d**2) 1805
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2938:72:
2938 | if(mm(k) .ne. 0)goto 14341 1805
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2939:72:
2939 | nin=nin+1 1805
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2940:72:
2940 | if(nin.gt.nx)goto 14292 1806
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2941:72:
2941 | mm(k)=nin 1806
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2942:72:
2942 | m(nin)=k 1806
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2943:72:
2943 | sc(1:jn)=v(jx(jb:je)) 1807
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2944:72:
2944 | xm(k)=dot_product(sc(1:jn),x(jb:je)) 1808
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2945:72:
2945 | 14341 continue 1809
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2946:72:
2946 | r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 1810
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2947:72:
2947 | o=o+d*(xb(k)/xs(k)) 1811
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2948:72:
2948 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1812
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2949:72:
2949 | 14291 continue 1813
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2950:72:
2950 | 14292 continue 1813
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2951:72:
2951 | if(nin.gt.nx)goto 14282 1814
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2952:72:
2952 | d=svr/xm(0) 1815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2953:72:
2953 | if(d .eq. 0.0)goto 14361 1815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2954:72:
2954 | b(0)=b(0)+d 1815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2955:72:
2955 | dlx=max(dlx,xm(0)*d**2) 1815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2956:72:
2956 | r=r-d*v 1815
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2957:72:
2957 | 14361 continue 1816
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2958:72:
2958 | svr=svr-d*xm(0) 1816
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2959:72:
2959 | if(dlx.lt.shr)goto 14282 1817
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2960:72:
2960 | if(nlp .le. maxit)goto 14381 1817
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2961:72:
2961 | jerr=-ilm 1817
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2962:72:
2962 | return 1817
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2963:72:
2963 | 14381 continue 1818
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2964:72:
2964 | 14390 continue 1818
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2965:72:
2965 | 14391 continue 1818
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2966:72:
2966 | nlp=nlp+1 1818
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2967:72:
2967 | dlx=0.0 1819
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2968:72:
2968 | 14400 do 14401 l=1,nin 1819
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2969:72:
2969 | k=m(l) 1819
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2970:72:
2970 | jb=ix(k) 1819
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2971:72:
2971 | je=ix(k+1)-1 1820
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2972:72:
2972 | jn=ix(k+1)-ix(k) 1820
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2973:72:
2973 | bk=b(k) 1821
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2974:72:
2974 | sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1822
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2975:72:
2975 | gk=dot_product(sc(1:jn),x(jb:je)) 1823
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2976:72:
2976 | gk=(gk-svr*xb(k))/xs(k) 1824
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2977:72:
2977 | u=gk+xv(k)*b(k) 1824
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2978:72:
2978 | au=abs(u)-vp(k)*al1 1825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2979:72:
2979 | if(au .gt. 0.0)goto 14421 1825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2980:72:
2980 | b(k)=0.0 1825
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2981:72:
2981 | goto 14431 1826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2982:72:
2982 | 14421 continue 1826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2983:72:
2983 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1826
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2984:72:
2984 | 14431 continue 1827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2985:72:
2985 | 14411 continue 1827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2986:72:
2986 | d=b(k)-bk 1827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2987:72:
2987 | if(abs(d).le.0.0)goto 14401 1827
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2988:72:
2988 | dlx=max(dlx,xv(k)*d**2) 1828
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2989:72:
2989 | r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 1829
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2990:72:
2990 | o=o+d*(xb(k)/xs(k)) 1830
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2991:72:
2991 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1831
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2992:72:
2992 | 14401 continue 1832
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2993:72:
2993 | 14402 continue 1832
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2994:72:
2994 | d=svr/xm(0) 1833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2995:72:
2995 | if(d .eq. 0.0)goto 14451 1833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2996:72:
2996 | b(0)=b(0)+d 1833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2997:72:
2997 | dlx=max(dlx,xm(0)*d**2) 1833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2998:72:
2998 | r=r-d*v 1833
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2999:72:
2999 | 14451 continue 1834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3000:72:
3000 | svr=svr-d*xm(0) 1834
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3001:72:
3001 | if(dlx.lt.shr)goto 14392 1835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3002:72:
3002 | if(nlp .le. maxit)goto 14471 1835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3003:72:
3003 | jerr=-ilm 1835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3004:72:
3004 | return 1835
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3005:72:
3005 | 14471 continue 1836
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3006:72:
3006 | goto 14391 1837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3007:72:
3007 | 14392 continue 1837
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3008:72:
3008 | goto 14281 1838
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3009:72:
3009 | 14282 continue 1838
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3010:72:
3010 | if(nin.gt.nx)goto 14242 1839
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3011:72:
3011 | sc=b(0) 1839
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3012:72:
3012 | b0=0.0 1840
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3013:72:
3013 | 14480 do 14481 j=1,nin 1840
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3014:72:
3014 | l=m(j) 1840
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3015:72:
3015 | jb=ix(l) 1840
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3016:72:
3016 | je=ix(l+1)-1 1841
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3017:72:
3017 | sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l) 1842
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3018:72:
3018 | b0=b0-b(l)*xb(l)/xs(l) 1843
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3019:72:
3019 | 14481 continue 1844
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3020:72:
3020 | 14482 continue 1844
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3021:72:
3021 | sc=sc+b0 1845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3022:72:
3022 | 14490 do 14491 i=1,no 1845
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3023:72:
3023 | fi=sc(i)+g(i) 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3024:72:
3024 | if(fi .ge. fmin)goto 14511 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3025:72:
3025 | q(i)=0.0 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3026:72:
3026 | goto 14501 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3027:72:
3027 | 14511 if(fi .le. fmax)goto 14521 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3028:72:
3028 | q(i)=1.0 1846
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3029:72:
3029 | goto 14531 1847
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3030:72:
3030 | 14521 continue 1847
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3031:72:
3031 | q(i)=1.0/(1.0+exp(-fi)) 1847
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3032:72:
3032 | 14531 continue 1848
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3033:72:
3033 | 14501 continue 1848
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3034:72:
3034 | 14491 continue 1849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3035:72:
3035 | 14492 continue 1849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3036:72:
3036 | v=w*q*(1.0-q) 1849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3037:72:
3037 | xm(0)=sum(v) 1849
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3038:72:
3038 | if(xm(0).lt.vmin)goto 14242 1850
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3039:72:
3039 | r=w*(y-q) 1850
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3040:72:
3040 | svr=sum(r) 1850
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3041:72:
3041 | o=0.0 1851
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3042:72:
3042 | if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551 1851
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3043:72:
3043 | kx=0 1852
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3044:72:
3044 | 14560 do 14561 j=1,nin 1852
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3045:72:
3045 | k=m(j) 1853
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3046:72:
3046 | if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561 1853
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3047:72:
3047 | kx=1 1853
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3048:72:
3048 | goto 14562 1854
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3049:72:
3049 | 14561 continue 1855
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3050:72:
3050 | 14562 continue 1855
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3051:72:
3051 | if(kx .ne. 0)goto 14581 1856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3052:72:
3052 | 14590 do 14591 j=1,ni 1856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3053:72:
3053 | if(ixx(j).eq.1)goto 14591 1856
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3054:72:
3054 | if(ju(j).eq.0)goto 14591 1857
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3055:72:
3055 | jb=ix(j) 1857
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3056:72:
3056 | je=ix(j+1)-1 1857
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3057:72:
3057 | jn=ix(j+1)-ix(j) 1858
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3058:72:
3058 | sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1859
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3059:72:
3059 | gj=dot_product(sc(1:jn),x(jb:je)) 1860
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3060:72:
3060 | ga(j)=abs((gj-svr*xb(j))/xs(j)) 1861
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3061:72:
3061 | if(ga(j) .le. al1*vp(j))goto 14611 1861
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3062:72:
3062 | ixx(j)=1 1861
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3063:72:
3063 | kx=1 1861
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3064:72:
3064 | 14611 continue 1862
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3065:72:
3065 | 14591 continue 1863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3066:72:
3066 | 14592 continue 1863
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3067:72:
3067 | if(kx.eq.1) go to 10680 1864
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3068:72:
3068 | goto 14242 1865
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3069:72:
3069 | 14581 continue 1866
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3070:72:
3070 | 14551 continue 1867
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3071:72:
3071 | goto 14241 1868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3072:72:
3072 | 14242 continue 1868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3073:72:
3073 | if(nin .le. nx)goto 14631 1868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3074:72:
3074 | jerr=-10000-ilm 1868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3075:72:
3075 | goto 14162 1868
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3076:72:
3076 | 14631 continue 1869
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3077:72:
3077 | if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin)) 1869
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3078:72:
3078 | kin(ilm)=nin 1870
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3079:72:
3079 | a0(ilm)=b(0) 1870
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3080:72:
3080 | alm(ilm)=al 1870
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3081:72:
3081 | lmu=ilm 1871
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3082:72:
3082 | devi=dev2(no,w,y,q,pmin) 1872
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3083:72:
3083 | dev(ilm)=(dev1-devi)/dev0 1873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3084:72:
3084 | if(ilm.lt.mnl)goto 14161 1873
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3085:72:
3085 | if(flmin.ge.1.0)goto 14161 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3086:72:
3086 | me=0 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3087:72:
3087 | 14640 do 14641 j=1,nin 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3088:72:
3088 | if(a(j,ilm).ne.0.0) me=me+1 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3089:72:
3089 | 14641 continue 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3090:72:
3090 | 14642 continue 1874
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3091:72:
3091 | if(me.gt.ne)goto 14162 1875
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3092:72:
3092 | if(dev(ilm).gt.devmax)goto 14162 1875
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3093:72:
3093 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162 1876
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3094:72:
3094 | if(xm(0).lt.vmin)goto 14162 1877
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3095:72:
3095 | 14161 continue 1878
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3096:72:
3096 | 14162 continue 1878
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3097:72:
3097 | g=log(q/(1.0-q)) 1879
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3098:72:
3098 | deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx) 1880
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3099:72:
3099 | return 1881
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3100:72:
3100 | end 1882
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3101:72:
3101 | subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam 1884
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3104:72:
3104 | parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1886
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3106:72:
3106 | real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni) 1887
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3107:72:
3107 | real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1888
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3108:72:
3108 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1889
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3118:72:
3118 | allocate(xm(0:ni),stat=ierr) 1900
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3119:72:
3119 | jerr=jerr+ierr 1901
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3120:72:
3120 | allocate(r(1:no),stat=ierr) 1901
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3121:72:
3121 | jerr=jerr+ierr 1902
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3122:72:
3122 | allocate(v(1:no),stat=ierr) 1902
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3123:72:
3123 | jerr=jerr+ierr 1903
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3124:72:
3124 | allocate(mm(1:ni),stat=ierr) 1903
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3125:72:
3125 | jerr=jerr+ierr 1904
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3126:72:
3126 | allocate(ga(1:ni),stat=ierr) 1904
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3127:72:
3127 | jerr=jerr+ierr 1905
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3128:72:
3128 | allocate(iy(1:ni),stat=ierr) 1905
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3129:72:
3129 | jerr=jerr+ierr 1906
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3130:72:
3130 | allocate(is(1:max(nc,ni)),stat=ierr) 1906
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3131:72:
3131 | jerr=jerr+ierr 1907
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3132:72:
3132 | allocate(sxp(1:no),stat=ierr) 1907
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3133:72:
3133 | jerr=jerr+ierr 1908
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3134:72:
3134 | allocate(sxpl(1:no),stat=ierr) 1908
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3135:72:
3135 | jerr=jerr+ierr 1909
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3136:72:
3136 | allocate(sc(1:no),stat=ierr) 1909
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3137:72:
3137 | jerr=jerr+ierr 1910
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3138:72:
3138 | if(jerr.ne.0) return 1911
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3139:72:
3139 | pmax=1.0-pmin 1911
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3140:72:
3140 | emin=pmin/pmax 1911
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3141:72:
3141 | emax=1.0/emin 1912
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3142:72:
3142 | pfm=(1.0+pmin)*pmin 1912
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3143:72:
3143 | pfx=(1.0-pmin)*pmax 1912
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3144:72:
3144 | vmin=pfm*pmax 1913
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3145:72:
3145 | bta=parm 1913
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3146:72:
3146 | omb=1.0-bta 1913
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3147:72:
3147 | dev1=0.0 1913
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3148:72:
3148 | dev0=0.0 1914
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3149:72:
3149 | 14650 do 14651 ic=1,nc 1914
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3150:72:
3150 | q0=dot_product(w,y(:,ic)) 1915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3151:72:
3151 | if(q0 .gt. pmin)goto 14671 1915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3152:72:
3152 | jerr =8000+ic 1915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3153:72:
3153 | return 1915
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3154:72:
3154 | 14671 continue 1916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3155:72:
3155 | if(q0 .lt. 1.0-pmin)goto 14691 1916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3156:72:
3156 | jerr =9000+ic 1916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3157:72:
3157 | return 1916
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3158:72:
3158 | 14691 continue 1917
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3159:72:
3159 | b(1:ni,ic)=0.0 1917
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3160:72:
3160 | b(0,ic)=log(q0) 1917
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3161:72:
3161 | dev1=dev1-q0*b(0,ic) 1918
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3162:72:
3162 | 14651 continue 1919
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3163:72:
3163 | 14652 continue 1919
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3164:72:
3164 | iy=0 1919
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3165:72:
3165 | al=0.0 1920
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3166:72:
3166 | if(nonzero(no*nc,g) .ne. 0)goto 14711 1921
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3167:72:
3167 | b(0,:)=b(0,:)-sum(b(0,:))/nc 1921
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3168:72:
3168 | sxp=0.0 1922
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3169:72:
3169 | 14720 do 14721 ic=1,nc 1922
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3170:72:
3170 | q(:,ic)=exp(b(0,ic)) 1922
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3171:72:
3171 | sxp=sxp+q(:,ic) 1922
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3172:72:
3172 | 14721 continue 1923
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3173:72:
3173 | 14722 continue 1923
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3174:72:
3174 | goto 14731 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3175:72:
3175 | 14711 continue 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3176:72:
3176 | 14740 do 14741 i=1,no 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3177:72:
3177 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3178:72:
3178 | 14741 continue 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3179:72:
3179 | 14742 continue 1924
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3180:72:
3180 | sxp=0.0 1925
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3181:72:
3181 | call kazero(nc,no,y,g,w,b(0,:),jerr) 1925
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3182:72:
3182 | if(jerr.ne.0) return 1926
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3183:72:
3183 | dev1=0.0 1927
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3184:72:
3184 | 14750 do 14751 ic=1,nc 1927
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3185:72:
3185 | q(:,ic)=b(0,ic)+g(:,ic) 1928
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3186:72:
3186 | dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1929
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3187:72:
3187 | q(:,ic)=exp(q(:,ic)) 1929
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3188:72:
3188 | sxp=sxp+q(:,ic) 1930
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3189:72:
3189 | 14751 continue 1931
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3190:72:
3190 | 14752 continue 1931
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3191:72:
3191 | sxpl=w*log(sxp) 1931
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3192:72:
3192 | 14760 do 14761 ic=1,nc 1931
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3193:72:
3193 | dev1=dev1+dot_product(y(:,ic),sxpl) 1931
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3194:72:
3194 | 14761 continue 1932
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3195:72:
3195 | 14762 continue 1932
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3196:72:
3196 | 14731 continue 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3197:72:
3197 | 14701 continue 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3198:72:
3198 | 14770 do 14771 ic=1,nc 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3199:72:
3199 | 14780 do 14781 i=1,no 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3200:72:
3200 | if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic)) 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3201:72:
3201 | 14781 continue 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3202:72:
3202 | 14782 continue 1933
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3203:72:
3203 | 14771 continue 1934
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3204:72:
3204 | 14772 continue 1934
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3205:72:
3205 | dev0=dev0+dev1 1935
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3206:72:
3206 | if(kopt .le. 0)goto 14801 1936
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3207:72:
3207 | if(isd .le. 0)goto 14821 1936
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3208:72:
3208 | xv=0.25 1936
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3209:72:
3209 | goto 14831 1937
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3210:72:
3210 | 14821 continue 1938
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3211:72:
3211 | 14840 do 14841 j=1,ni 1938
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3212:72:
3212 | if(ju(j).eq.0)goto 14841 1938
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3213:72:
3213 | jb=ix(j) 1938
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3214:72:
3214 | je=ix(j+1)-1 1939
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3215:72:
3215 | xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2) 1940
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3216:72:
3216 | 14841 continue 1941
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3217:72:
3217 | 14842 continue 1941
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3218:72:
3218 | 14831 continue 1942
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3219:72:
3219 | 14811 continue 1942
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3220:72:
3220 | 14801 continue 1943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3221:72:
3221 | if(flmin .ge. 1.0)goto 14861 1943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3222:72:
3222 | eqs=max(eps,flmin) 1943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3223:72:
3223 | alf=eqs**(1.0/(nlam-1)) 1943
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3224:72:
3224 | 14861 continue 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3225:72:
3225 | m=0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3226:72:
3226 | mm=0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3227:72:
3227 | nin=0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3228:72:
3228 | nlp=0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3229:72:
3229 | mnl=min(mnlam,nlam) 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3230:72:
3230 | bs=0.0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3231:72:
3231 | svr=0.0 1944
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3232:72:
3232 | o=0.0 1945
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3233:72:
3233 | shr=shri*dev0 1945
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3234:72:
3234 | ga=0.0 1946
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3235:72:
3235 | 14870 do 14871 ic=1,nc 1946
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3236:72:
3236 | v=q(:,ic)/sxp 1946
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3237:72:
3237 | r=w*(y(:,ic)-v) 1946
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3238:72:
3238 | v=w*v*(1.0-v) 1947
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3239:72:
3239 | 14880 do 14881 j=1,ni 1947
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3240:72:
3240 | if(ju(j).eq.0)goto 14881 1948
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3241:72:
3241 | jb=ix(j) 1948
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3242:72:
3242 | je=ix(j+1)-1 1948
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3243:72:
3243 | jn=ix(j+1)-ix(j) 1949
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3244:72:
3244 | sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 1950
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3245:72:
3245 | gj=dot_product(sc(1:jn),x(jb:je)) 1951
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3246:72:
3246 | ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j)) 1952
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3247:72:
3247 | 14881 continue 1953
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3248:72:
3248 | 14882 continue 1953
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3249:72:
3249 | 14871 continue 1954
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3250:72:
3250 | 14872 continue 1954
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3251:72:
3251 | 14890 do 14891 ilm=1,nlam 1954
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3252:72:
3252 | al0=al 1955
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3253:72:
3253 | if(flmin .lt. 1.0)goto 14911 1955
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3254:72:
3254 | al=ulam(ilm) 1955
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3255:72:
3255 | goto 14901 1956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3256:72:
3256 | 14911 if(ilm .le. 2)goto 14921 1956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3257:72:
3257 | al=al*alf 1956
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3258:72:
3258 | goto 14901 1957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3259:72:
3259 | 14921 if(ilm .ne. 1)goto 14931 1957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3260:72:
3260 | al=big 1957
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3261:72:
3261 | goto 14941 1958
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3262:72:
3262 | 14931 continue 1958
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3263:72:
3263 | al0=0.0 1959
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3264:72:
3264 | 14950 do 14951 j=1,ni 1959
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3265:72:
3265 | if(ju(j).eq.0)goto 14951 1959
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3266:72:
3266 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1959
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3267:72:
3267 | 14951 continue 1960
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3268:72:
3268 | 14952 continue 1960
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3269:72:
3269 | al0=al0/max(bta,1.0e-3) 1960
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3270:72:
3270 | al=alf*al0 1961
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3271:72:
3271 | 14941 continue 1962
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3272:72:
3272 | 14901 continue 1962
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3273:72:
3273 | al2=al*omb 1962
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3274:72:
3274 | al1=al*bta 1962
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3275:72:
3275 | tlam=bta*(2.0*al-al0) 1963
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3276:72:
3276 | 14960 do 14961 k=1,ni 1963
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3277:72:
3277 | if(iy(k).eq.1)goto 14961 1963
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3278:72:
3278 | if(ju(k).eq.0)goto 14961 1964
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3279:72:
3279 | if(ga(k).gt.tlam*vp(k)) iy(k)=1 1965
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3280:72:
3280 | 14961 continue 1966
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3281:72:
3281 | 14962 continue 1966
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3282:72:
3282 | 10680 continue 1967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3283:72:
3283 | 14970 continue 1967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3284:72:
3284 | 14971 continue 1967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3285:72:
3285 | ixx=0 1967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3286:72:
3286 | jxx=ixx 1967
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3287:72:
3287 | ig=0 1968
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3288:72:
3288 | 14980 do 14981 ic=1,nc 1968
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3289:72:
3289 | bs(0,ic)=b(0,ic) 1969
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3290:72:
3290 | if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic) 1970
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3291:72:
3291 | xm(0)=0.0 1970
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3292:72:
3292 | svr=0.0 1970
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3293:72:
3293 | o=0.0 1971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3294:72:
3294 | 14990 do 14991 i=1,no 1971
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3295:72:
3295 | pic=q(i,ic)/sxp(i) 1972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3296:72:
3296 | if(pic .ge. pfm)goto 15011 1972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3297:72:
3297 | pic=0.0 1972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3298:72:
3298 | v(i)=0.0 1972
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3299:72:
3299 | goto 15001 1973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3300:72:
3300 | 15011 if(pic .le. pfx)goto 15021 1973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3301:72:
3301 | pic=1.0 1973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3302:72:
3302 | v(i)=0.0 1973
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3303:72:
3303 | goto 15031 1974
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3304:72:
3304 | 15021 continue 1974
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3305:72:
3305 | v(i)=w(i)*pic*(1.0-pic) 1974
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3306:72:
3306 | xm(0)=xm(0)+v(i) 1974
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3307:72:
3307 | 15031 continue 1975
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3308:72:
3308 | 15001 continue 1975
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3309:72:
3309 | r(i)=w(i)*(y(i,ic)-pic) 1975
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3310:72:
3310 | svr=svr+r(i) 1976
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3311:72:
3311 | 14991 continue 1977
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3312:72:
3312 | 14992 continue 1977
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3313:72:
3313 | if(xm(0).le.vmin)goto 14981 1977
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3314:72:
3314 | ig=1 1978
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3315:72:
3315 | 15040 do 15041 j=1,ni 1978
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3316:72:
3316 | if(iy(j).eq.0)goto 15041 1979
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3317:72:
3317 | jb=ix(j) 1979
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3318:72:
3318 | je=ix(j+1)-1 1980
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3319:72:
3319 | xm(j)=dot_product(v(jx(jb:je)),x(jb:je)) 1981
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3320:72:
3320 | if(kopt .ne. 0)goto 15061 1982
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3321:72:
3321 | xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2) 1983
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3322:72:
3322 | xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2 1984
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3323:72:
3323 | 15061 continue 1985
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3324:72:
3324 | 15041 continue 1986
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3325:72:
3325 | 15042 continue 1986
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3326:72:
3326 | 15070 continue 1986
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3327:72:
3327 | 15071 continue 1986
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3328:72:
3328 | nlp=nlp+1 1986
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3329:72:
3329 | dlx=0.0 1987
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3330:72:
3330 | 15080 do 15081 k=1,ni 1987
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3331:72:
3331 | if(iy(k).eq.0)goto 15081 1988
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3332:72:
3332 | jb=ix(k) 1988
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3333:72:
3333 | je=ix(k+1)-1 1988
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3334:72:
3334 | jn=ix(k+1)-ix(k) 1988
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3335:72:
3335 | bk=b(k,ic) 1989
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3336:72:
3336 | sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 1990
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3337:72:
3337 | gk=dot_product(sc(1:jn),x(jb:je)) 1991
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3338:72:
3338 | gk=(gk-svr*xb(k))/xs(k) 1992
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3339:72:
3339 | u=gk+xv(k,ic)*b(k,ic) 1992
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3340:72:
3340 | au=abs(u)-vp(k)*al1 1993
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3341:72:
3341 | if(au .gt. 0.0)goto 15101 1993
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3342:72:
3342 | b(k,ic)=0.0 1993
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3343:72:
3343 | goto 15111 1994
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3344:72:
3344 | 15101 continue 1994
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3345:72:
3345 | b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1994
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3346:72:
3346 | 15111 continue 1995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3347:72:
3347 | 15091 continue 1995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3348:72:
3348 | d=b(k,ic)-bk 1995
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3349:72:
3349 | if(abs(d).le.0.0)goto 15081 1996
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3350:72:
3350 | dlx=max(dlx,xv(k,ic)*d**2) 1997
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3351:72:
3351 | if(mm(k) .ne. 0)goto 15131 1997
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3352:72:
3352 | nin=nin+1 1998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3353:72:
3353 | if(nin .le. nx)goto 15151 1998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3354:72:
3354 | jxx=1 1998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3355:72:
3355 | goto 15082 1998
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3356:72:
3356 | 15151 continue 1999
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3357:72:
3357 | mm(k)=nin 1999
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3358:72:
3358 | m(nin)=k 2000
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3359:72:
3359 | xm(k)=dot_product(v(jx(jb:je)),x(jb:je)) 2001
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3360:72:
3360 | 15131 continue 2002
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3361:72:
3361 | r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 2003
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3362:72:
3362 | o=o+d*(xb(k)/xs(k)) 2004
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3363:72:
3363 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2005
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3364:72:
3364 | 15081 continue 2006
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3365:72:
3365 | 15082 continue 2006
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3366:72:
3366 | if(jxx.gt.0)goto 15072 2007
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3367:72:
3367 | d=svr/xm(0) 2008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3368:72:
3368 | if(d .eq. 0.0)goto 15171 2008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3369:72:
3369 | b(0,ic)=b(0,ic)+d 2008
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3370:72:
3370 | dlx=max(dlx,xm(0)*d**2) 2009
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3371:72:
3371 | r=r-d*v 2009
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3372:72:
3372 | svr=svr-d*xm(0) 2010
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3373:72:
3373 | 15171 continue 2011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3374:72:
3374 | if(dlx.lt.shr)goto 15072 2011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3375:72:
3375 | if(nlp .le. maxit)goto 15191 2011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3376:72:
3376 | jerr=-ilm 2011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3377:72:
3377 | return 2011
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3378:72:
3378 | 15191 continue 2012
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3379:72:
3379 | 15200 continue 2012
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3380:72:
3380 | 15201 continue 2012
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3381:72:
3381 | nlp=nlp+1 2012
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3382:72:
3382 | dlx=0.0 2013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3383:72:
3383 | 15210 do 15211 l=1,nin 2013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3384:72:
3384 | k=m(l) 2013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3385:72:
3385 | jb=ix(k) 2013
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3386:72:
3386 | je=ix(k+1)-1 2014
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3387:72:
3387 | jn=ix(k+1)-ix(k) 2014
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3388:72:
3388 | bk=b(k,ic) 2015
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3389:72:
3389 | sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 2016
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3390:72:
3390 | gk=dot_product(sc(1:jn),x(jb:je)) 2017
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3391:72:
3391 | gk=(gk-svr*xb(k))/xs(k) 2018
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3392:72:
3392 | u=gk+xv(k,ic)*b(k,ic) 2018
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3393:72:
3393 | au=abs(u)-vp(k)*al1 2019
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3394:72:
3394 | if(au .gt. 0.0)goto 15231 2019
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3395:72:
3395 | b(k,ic)=0.0 2019
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3396:72:
3396 | goto 15241 2020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3397:72:
3397 | 15231 continue 2020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3398:72:
3398 | b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 2020
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3399:72:
3399 | 15241 continue 2021
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3400:72:
3400 | 15221 continue 2021
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3401:72:
3401 | d=b(k,ic)-bk 2021
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3402:72:
3402 | if(abs(d).le.0.0)goto 15211 2022
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3403:72:
3403 | dlx=max(dlx,xv(k,ic)*d**2) 2023
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3404:72:
3404 | r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 2024
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3405:72:
3405 | o=o+d*(xb(k)/xs(k)) 2025
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3406:72:
3406 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2026
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3407:72:
3407 | 15211 continue 2027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3408:72:
3408 | 15212 continue 2027
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3409:72:
3409 | d=svr/xm(0) 2028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3410:72:
3410 | if(d .eq. 0.0)goto 15261 2028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3411:72:
3411 | b(0,ic)=b(0,ic)+d 2028
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3412:72:
3412 | dlx=max(dlx,xm(0)*d**2) 2029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3413:72:
3413 | r=r-d*v 2029
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3414:72:
3414 | svr=svr-d*xm(0) 2030
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3415:72:
3415 | 15261 continue 2031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3416:72:
3416 | if(dlx.lt.shr)goto 15202 2031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3417:72:
3417 | if(nlp .le. maxit)goto 15281 2031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3418:72:
3418 | jerr=-ilm 2031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3419:72:
3419 | return 2031
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3420:72:
3420 | 15281 continue 2032
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3421:72:
3421 | goto 15201 2033
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3422:72:
3422 | 15202 continue 2033
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3423:72:
3423 | goto 15071 2034
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3424:72:
3424 | 15072 continue 2034
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3425:72:
3425 | if(jxx.gt.0)goto 14982 2035
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3426:72:
3426 | if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1 2036
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3427:72:
3427 | if(ixx .ne. 0)goto 15301 2037
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3428:72:
3428 | 15310 do 15311 j=1,nin 2037
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3429:72:
3429 | k=m(j) 2038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3430:72:
3430 | if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331 2038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3431:72:
3431 | ixx=1 2038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3432:72:
3432 | goto 15312 2038
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3433:72:
3433 | 15331 continue 2039
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3434:72:
3434 | 15311 continue 2040
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3435:72:
3435 | 15312 continue 2040
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3436:72:
3436 | 15301 continue 2041
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3437:72:
3437 | sc=b(0,ic)+g(:,ic) 2041
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3438:72:
3438 | b0=0.0 2042
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3439:72:
3439 | 15340 do 15341 j=1,nin 2042
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3440:72:
3440 | l=m(j) 2042
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3441:72:
3441 | jb=ix(l) 2042
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3442:72:
3442 | je=ix(l+1)-1 2043
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3443:72:
3443 | sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l) 2044
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3444:72:
3444 | b0=b0-b(l,ic)*xb(l)/xs(l) 2045
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3445:72:
3445 | 15341 continue 2046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3446:72:
3446 | 15342 continue 2046
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3447:72:
3447 | sc=min(max(exmn,sc+b0),exmx) 2047
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3448:72:
3448 | sxp=sxp-q(:,ic) 2048
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3449:72:
3449 | q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp) 2049
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3450:72:
3450 | sxp=sxp+q(:,ic) 2050
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3451:72:
3451 | 14981 continue 2051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3452:72:
3452 | 14982 continue 2051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3453:72:
3453 | s=-sum(b(0,:))/nc 2051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3454:72:
3454 | b(0,:)=b(0,:)+s 2051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3455:72:
3455 | sc=s 2051
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3456:72:
3456 | b0=0.0 2052
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3457:72:
3457 | 15350 do 15351 j=1,nin 2052
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3458:72:
3458 | l=m(j) 2053
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3459:72:
3459 | if(vp(l) .gt. 0.0)goto 15371 2053
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3460:72:
3460 | s=sum(b(l,:))/nc 2053
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3461:72:
3461 | goto 15381 2054
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3462:72:
3462 | 15371 continue 2054
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3463:72:
3463 | s=elc(parm,nc,b(l,:),is) 2054
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3464:72:
3464 | 15381 continue 2055
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3465:72:
3465 | 15361 continue 2055
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3466:72:
3466 | b(l,:)=b(l,:)-s 2056
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3467:72:
3467 | jb=ix(l) 2056
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3468:72:
3468 | je=ix(l+1)-1 2057
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3469:72:
3469 | sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l) 2058
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3470:72:
3470 | b0=b0+s*xb(l)/xs(l) 2059
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3471:72:
3471 | 15351 continue 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3472:72:
3472 | 15352 continue 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3473:72:
3473 | sc=sc+b0 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3474:72:
3474 | sc=exp(sc) 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3475:72:
3475 | sxp=sxp*sc 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3476:72:
3476 | 15390 do 15391 ic=1,nc 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3477:72:
3477 | q(:,ic)=q(:,ic)*sc 2060
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3478:72:
3478 | 15391 continue 2061
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3479:72:
3479 | 15392 continue 2061
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3480:72:
3480 | if(jxx.gt.0)goto 14972 2061
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3481:72:
3481 | if(ig.eq.0)goto 14972 2062
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3482:72:
3482 | if(ixx .ne. 0)goto 15411 2063
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3483:72:
3483 | 15420 do 15421 j=1,ni 2063
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3484:72:
3484 | if(iy(j).eq.1)goto 15421 2063
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3485:72:
3485 | if(ju(j).eq.0)goto 15421 2063
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3486:72:
3486 | ga(j)=0.0 2063
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3487:72:
3487 | 15421 continue 2064
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3488:72:
3488 | 15422 continue 2064
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3489:72:
3489 | 15430 do 15431 ic=1,nc 2064
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3490:72:
3490 | v=q(:,ic)/sxp 2064
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3491:72:
3491 | r=w*(y(:,ic)-v) 2064
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3492:72:
3492 | v=w*v*(1.0-v) 2065
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3493:72:
3493 | 15440 do 15441 j=1,ni 2065
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3494:72:
3494 | if(iy(j).eq.1)goto 15441 2065
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3495:72:
3495 | if(ju(j).eq.0)goto 15441 2066
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3496:72:
3496 | jb=ix(j) 2066
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3497:72:
3497 | je=ix(j+1)-1 2066
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3498:72:
3498 | jn=ix(j+1)-ix(j) 2067
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3499:72:
3499 | sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 2068
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3500:72:
3500 | gj=dot_product(sc(1:jn),x(jb:je)) 2069
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3501:72:
3501 | ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j)) 2070
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3502:72:
3502 | 15441 continue 2071
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3503:72:
3503 | 15442 continue 2071
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3504:72:
3504 | 15431 continue 2072
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3505:72:
3505 | 15432 continue 2072
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3506:72:
3506 | 15450 do 15451 k=1,ni 2072
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3507:72:
3507 | if(iy(k).eq.1)goto 15451 2072
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3508:72:
3508 | if(ju(k).eq.0)goto 15451 2073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3509:72:
3509 | if(ga(k) .le. al1*vp(k))goto 15471 2073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3510:72:
3510 | iy(k)=1 2073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3511:72:
3511 | ixx=1 2073
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3512:72:
3512 | 15471 continue 2074
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3513:72:
3513 | 15451 continue 2075
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3514:72:
3514 | 15452 continue 2075
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3515:72:
3515 | if(ixx.eq.1) go to 10680 2076
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3516:72:
3516 | goto 14972 2077
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3517:72:
3517 | 15411 continue 2078
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3518:72:
3518 | goto 14971 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3519:72:
3519 | 14972 continue 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3520:72:
3520 | if(jxx .le. 0)goto 15491 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3521:72:
3521 | jerr=-10000-ilm 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3522:72:
3522 | goto 14892 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3523:72:
3523 | 15491 continue 2079
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3524:72:
3524 | devi=0.0 2080
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3525:72:
3525 | 15500 do 15501 ic=1,nc 2081
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3526:72:
3526 | if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic) 2081
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3527:72:
3527 | a0(ic,ilm)=b(0,ic) 2082
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3528:72:
3528 | 15510 do 15511 i=1,no 2082
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3529:72:
3529 | if(y(i,ic).le.0.0)goto 15511 2083
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3530:72:
3530 | devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i)) 2084
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3531:72:
3531 | 15511 continue 2085
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3532:72:
3532 | 15512 continue 2085
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3533:72:
3533 | 15501 continue 2086
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3534:72:
3534 | 15502 continue 2086
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3535:72:
3535 | kin(ilm)=nin 2086
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3536:72:
3536 | alm(ilm)=al 2086
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3537:72:
3537 | lmu=ilm 2087
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3538:72:
3538 | dev(ilm)=(dev1-devi)/dev0 2087
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3539:72:
3539 | if(ig.eq.0)goto 14892 2088
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3540:72:
3540 | if(ilm.lt.mnl)goto 14891 2088
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3541:72:
3541 | if(flmin.ge.1.0)goto 14891 2089
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3542:72:
3542 | if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892 2090
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3543:72:
3543 | if(dev(ilm).gt.devmax)goto 14892 2090
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3544:72:
3544 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892 2091
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3545:72:
3545 | 14891 continue 2092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3546:72:
3546 | 14892 continue 2092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3547:72:
3547 | g=log(q) 2092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3548:72:
3548 | 15520 do 15521 i=1,no 2092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3549:72:
3549 | g(i,:)=g(i,:)-sum(g(i,:))/nc 2092
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3550:72:
3550 | 15521 continue 2093
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3551:72:
3551 | 15522 continue 2093
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3552:72:
3552 | deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy) 2094
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3553:72:
3553 | return 2095
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3554:72:
3554 | end 2096
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3555:72:
3555 | subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f) 2097
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3556:72:
3556 | real a0(nc),ca(nx,nc),x(*),f(nc,n) 2097
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3557:72:
3557 | integer ia(*),ix(*),jx(*) 2098
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3558:72:
3558 | 15530 do 15531 ic=1,nc 2098
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3559:72:
3559 | f(ic,:)=a0(ic) 2098
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3560:72:
3560 | 15531 continue 2099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3561:72:
3561 | 15532 continue 2099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3562:72:
3562 | 15540 do 15541 j=1,nin 2099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3563:72:
3563 | k=ia(j) 2099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3564:72:
3564 | kb=ix(k) 2099
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3565:72:
3565 | ke=ix(k+1)-1 2100
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3566:72:
3566 | 15550 do 15551 ic=1,nc 2100
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3567:72:
3567 | f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke) 2100
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3568:72:
3568 | 15551 continue 2101
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3569:72:
3569 | 15552 continue 2101
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3570:72:
3570 | 15541 continue 2102
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3571:72:
3571 | 15542 continue 2102
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3572:72:
3572 | return 2103
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3573:72:
3573 | end 2104
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3574:72:
3574 | subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula 2106
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3576:72:
3576 | real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam) 2107
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3577:72:
3577 | real ca(nx,nlam),dev(nlam),alm(nlam) 2108
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3578:72:
3578 | integer jd(*),ia(nx),nin(nlam) 2109
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3581:72:
3581 | if(maxval(vp) .gt. 0.0)goto 15571 2113
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3582:72:
3582 | jerr=10000 2113
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3583:72:
3583 | return 2113
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3584:72:
3584 | 15571 continue 2114
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3585:72:
3585 | allocate(ww(1:no),stat=jerr) 2115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3586:72:
3586 | allocate(ju(1:ni),stat=ierr) 2115
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3587:72:
3587 | jerr=jerr+ierr 2116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3588:72:
3588 | allocate(vq(1:ni),stat=ierr) 2116
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3589:72:
3589 | jerr=jerr+ierr 2117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3590:72:
3590 | if(isd .le. 0)goto 15591 2117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3591:72:
3591 | allocate(xs(1:ni),stat=ierr) 2117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3592:72:
3592 | jerr=jerr+ierr 2117
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3593:72:
3593 | 15591 continue 2118
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3594:72:
3594 | if(jerr.ne.0) return 2119
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3595:72:
3595 | call chkvars(no,ni,x,ju) 2120
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3596:72:
3596 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3597:72:
3597 | if(maxval(ju) .gt. 0)goto 15611 2121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3598:72:
3598 | jerr=7777 2121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3599:72:
3599 | return 2121
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3600:72:
3600 | 15611 continue 2122
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3601:72:
3601 | vq=max(0.0,vp) 2122
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3602:72:
3602 | vq=vq*ni/sum(vq) 2123
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3603:72:
3603 | ww=max(0.0,w) 2123
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3604:72:
3604 | sw=sum(ww) 2124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3605:72:
3605 | if(sw .gt. 0.0)goto 15631 2124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3606:72:
3606 | jerr=9999 2124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3607:72:
3607 | return 2124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3608:72:
3608 | 15631 continue 2124
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3609:72:
3609 | ww=ww/sw 2125
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3610:72:
3610 | call cstandard(no,ni,x,ww,ju,isd,xs) 2126
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3611:72:
3611 | call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr 2128
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3613:72:
3613 | if(jerr.gt.0) return 2128
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3614:72:
3614 | dev0=2.0*sw*dev0 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3615:72:
3615 | if(isd .le. 0)goto 15651 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3616:72:
3616 | 15660 do 15661 k=1,lmu 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3617:72:
3617 | nk=nin(k) 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3618:72:
3618 | ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3619:72:
3619 | 15661 continue 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3620:72:
3620 | 15662 continue 2129
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3621:72:
3621 | 15651 continue 2130
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3622:72:
3622 | deallocate(ww,ju,vq) 2130
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3623:72:
3623 | if(isd.gt.0) deallocate(xs) 2131
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3624:72:
3624 | return 2132
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3625:72:
3625 | end 2133
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3626:72:
3626 | subroutine cstandard (no,ni,x,w,ju,isd,xs) 2134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3627:72:
3627 | real x(no,ni),w(no),xs(ni) 2134
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3628:72:
3628 | integer ju(ni) 2135
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3629:72:
3629 | 15670 do 15671 j=1,ni 2135
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3630:72:
3630 | if(ju(j).eq.0)goto 15671 2136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3631:72:
3631 | xm=dot_product(w,x(:,j)) 2136
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3632:72:
3632 | x(:,j)=x(:,j)-xm 2137
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3633:72:
3633 | if(isd .le. 0)goto 15691 2137
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3634:72:
3634 | xs(j)=sqrt(dot_product(w,x(:,j)**2)) 2137
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3635:72:
3635 | x(:,j)=x(:,j)/xs(j) 2137
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3636:72:
3636 | 15691 continue 2138
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3637:72:
3637 | 15671 continue 2139
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3638:72:
3638 | 15672 continue 2139
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3639:72:
3639 | return 2140
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3640:72:
3640 | end 2141
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3641:72:
3641 | subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula 2143
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3643:72:
3643 | parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99) 2144
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3644:72:
3644 | real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam) 2145
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3645:72:
3645 | real ao(nx,nlam),dev(nlam),alm(nlam) 2146
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3646:72:
3646 | integer ju(ni),m(nx),kin(nlam) 2147
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3650:72:
3650 | allocate(e(1:no),stat=jerr) 2153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3651:72:
3651 | allocate(uu(1:no),stat=ierr) 2153
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3652:72:
3652 | jerr=jerr+ierr 2154
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3653:72:
3653 | allocate(f(1:no),stat=ierr) 2154
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3654:72:
3654 | jerr=jerr+ierr 2155
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3655:72:
3655 | allocate(w(1:no),stat=ierr) 2155
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3656:72:
3656 | jerr=jerr+ierr 2156
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3657:72:
3657 | allocate(v(1:ni),stat=ierr) 2156
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3658:72:
3658 | jerr=jerr+ierr 2157
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3659:72:
3659 | allocate(a(1:ni),stat=ierr) 2157
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3660:72:
3660 | jerr=jerr+ierr 2158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3661:72:
3661 | allocate(as(1:ni),stat=ierr) 2158
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3662:72:
3662 | jerr=jerr+ierr 2159
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3663:72:
3663 | allocate(xs(1:ni),stat=ierr) 2159
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3664:72:
3664 | jerr=jerr+ierr 2160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3665:72:
3665 | allocate(ga(1:ni),stat=ierr) 2160
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3666:72:
3666 | jerr=jerr+ierr 2161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3667:72:
3667 | allocate(ixx(1:ni),stat=ierr) 2161
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3668:72:
3668 | jerr=jerr+ierr 2162
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3669:72:
3669 | allocate(jp(1:no),stat=ierr) 2162
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3670:72:
3670 | jerr=jerr+ierr 2163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3671:72:
3671 | allocate(kp(1:no),stat=ierr) 2163
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3672:72:
3672 | jerr=jerr+ierr 2164
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3673:72:
3673 | allocate(dk(1:no),stat=ierr) 2164
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3674:72:
3674 | jerr=jerr+ierr 2165
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3675:72:
3675 | allocate(wr(1:no),stat=ierr) 2165
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3676:72:
3676 | jerr=jerr+ierr 2166
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3677:72:
3677 | allocate(dq(1:no),stat=ierr) 2166
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3678:72:
3678 | jerr=jerr+ierr 2167
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3679:72:
3679 | allocate(mm(1:ni),stat=ierr) 2167
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3680:72:
3680 | jerr=jerr+ierr 2168
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3681:72:
3681 | if(jerr.ne.0)go to 11790 2169
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3682:72:
3682 | call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3683:72:
3683 | if(jerr.ne.0) go to 11790 2170
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3684:72:
3684 | alpha=parm 2171
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3685:72:
3685 | oma=1.0-alpha 2171
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3686:72:
3686 | nlm=0 2171
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3687:72:
3687 | ixx=0 2171
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3688:72:
3688 | al=0.0 2172
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3689:72:
3689 | dq=d*q 2172
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3690:72:
3690 | call died(no,nk,dq,kp,jp,dk) 2173
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3691:72:
3691 | a=0.0 2173
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3692:72:
3692 | f(1)=0.0 2173
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3693:72:
3693 | fmax=log(huge(f(1))*0.1) 2174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3694:72:
3694 | if(nonzero(no,g) .eq. 0)goto 15711 2174
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3695:72:
3695 | f=g-dot_product(q,g) 2175
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3696:72:
3696 | e=q*exp(sign(min(abs(f),fmax),f)) 2176
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3697:72:
3697 | goto 15721 2177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3698:72:
3698 | 15711 continue 2177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3699:72:
3699 | f=0.0 2177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3700:72:
3700 | e=q 2177
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3701:72:
3701 | 15721 continue 2178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3702:72:
3702 | 15701 continue 2178
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3703:72:
3703 | r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu) 2179
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3704:72:
3704 | rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0) 2179
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3705:72:
3705 | dev0=rr 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3706:72:
3706 | 15730 do 15731 i=1,no 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3707:72:
3707 | if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3708:72:
3708 | w(i)=0.0 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3709:72:
3709 | wr(i)=w(i) 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3710:72:
3710 | 15751 continue 2180
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3711:72:
3711 | 15731 continue 2181
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3712:72:
3712 | 15732 continue 2181
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3713:72:
3713 | call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu) 2182
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3714:72:
3714 | if(jerr.ne.0) go to 11790 2183
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3715:72:
3715 | if(flmin .ge. 1.0)goto 15771 2183
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3716:72:
3716 | eqs=max(eps,flmin) 2183
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3717:72:
3717 | alf=eqs**(1.0/(nlam-1)) 2183
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3718:72:
3718 | 15771 continue 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3719:72:
3719 | m=0 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3720:72:
3720 | mm=0 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3721:72:
3721 | nlp=0 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3722:72:
3722 | nin=nlp 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3723:72:
3723 | mnl=min(mnlam,nlam) 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3724:72:
3724 | as=0.0 2184
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3725:72:
3725 | cthr=cthri*dev0 2185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3726:72:
3726 | 15780 do 15781 j=1,ni 2185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3727:72:
3727 | if(ju(j).eq.0)goto 15781 2185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3728:72:
3728 | ga(j)=abs(dot_product(wr,x(:,j))) 2185
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3729:72:
3729 | 15781 continue 2186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3730:72:
3730 | 15782 continue 2186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3731:72:
3731 | 15790 do 15791 ilm=1,nlam 2186
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3732:72:
3732 | al0=al 2187
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3733:72:
3733 | if(flmin .lt. 1.0)goto 15811 2187
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3734:72:
3734 | al=ulam(ilm) 2187
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3735:72:
3735 | goto 15801 2188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3736:72:
3736 | 15811 if(ilm .le. 2)goto 15821 2188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3737:72:
3737 | al=al*alf 2188
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3738:72:
3738 | goto 15801 2189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3739:72:
3739 | 15821 if(ilm .ne. 1)goto 15831 2189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3740:72:
3740 | al=big 2189
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3741:72:
3741 | goto 15841 2190
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3742:72:
3742 | 15831 continue 2190
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3743:72:
3743 | al0=0.0 2191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3744:72:
3744 | 15850 do 15851 j=1,ni 2191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3745:72:
3745 | if(ju(j).eq.0)goto 15851 2191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3746:72:
3746 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2191
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3747:72:
3747 | 15851 continue 2192
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3748:72:
3748 | 15852 continue 2192
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3749:72:
3749 | al0=al0/max(parm,1.0e-3) 2192
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3750:72:
3750 | al=alf*al0 2193
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3751:72:
3751 | 15841 continue 2194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3752:72:
3752 | 15801 continue 2194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3753:72:
3753 | sa=alpha*al 2194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3754:72:
3754 | omal=oma*al 2194
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3755:72:
3755 | tlam=alpha*(2.0*al-al0) 2195
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3756:72:
3756 | 15860 do 15861 k=1,ni 2195
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3757:72:
3757 | if(ixx(k).eq.1)goto 15861 2195
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3758:72:
3758 | if(ju(k).eq.0)goto 15861 2196
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3759:72:
3759 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2197
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3760:72:
3760 | 15861 continue 2198
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3761:72:
3761 | 15862 continue 2198
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3762:72:
3762 | 10680 continue 2199
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3763:72:
3763 | 15870 continue 2199
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3764:72:
3764 | 15871 continue 2199
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3765:72:
3765 | if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2200
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3766:72:
3766 | call vars(no,ni,x,w,ixx,v) 2201
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3767:72:
3767 | 15880 continue 2201
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3768:72:
3768 | 15881 continue 2201
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3769:72:
3769 | nlp=nlp+1 2201
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3770:72:
3770 | dli=0.0 2202
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3771:72:
3771 | 15890 do 15891 j=1,ni 2202
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3772:72:
3772 | if(ixx(j).eq.0)goto 15891 2203
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3773:72:
3773 | u=a(j)*v(j)+dot_product(wr,x(:,j)) 2204
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3774:72:
3774 | if(abs(u) .gt. vp(j)*sa)goto 15911 2204
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3775:72:
3775 | at=0.0 2204
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3776:72:
3776 | goto 15921 2205
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3777:72:
3777 | 15911 continue 2205
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3778:72:
3778 | at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal) 2205
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3779:72:
3779 | 15921 continue 2206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3780:72:
3780 | 15901 continue 2206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3781:72:
3781 | if(at .eq. a(j))goto 15941 2206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3782:72:
3782 | del=at-a(j) 2206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3783:72:
3783 | a(j)=at 2206
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3784:72:
3784 | dli=max(dli,v(j)*del**2) 2207
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3785:72:
3785 | wr=wr-del*w*x(:,j) 2207
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3786:72:
3786 | f=f+del*x(:,j) 2208
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3787:72:
3787 | if(mm(j) .ne. 0)goto 15961 2208
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3788:72:
3788 | nin=nin+1 2208
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3789:72:
3789 | if(nin.gt.nx)goto 15892 2209
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3790:72:
3790 | mm(j)=nin 2209
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3791:72:
3791 | m(nin)=j 2210
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3792:72:
3792 | 15961 continue 2211
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3793:72:
3793 | 15941 continue 2212
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3794:72:
3794 | 15891 continue 2213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3795:72:
3795 | 15892 continue 2213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3796:72:
3796 | if(nin.gt.nx)goto 15882 2213
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3797:72:
3797 | if(dli.lt.cthr)goto 15882 2214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3798:72:
3798 | if(nlp .le. maxit)goto 15981 2214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3799:72:
3799 | jerr=-ilm 2214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3800:72:
3800 | return 2214
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3801:72:
3801 | 15981 continue 2215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3802:72:
3802 | 15990 continue 2215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3803:72:
3803 | 15991 continue 2215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3804:72:
3804 | nlp=nlp+1 2215
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3805:72:
3805 | dli=0.0 2216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3806:72:
3806 | 16000 do 16001 l=1,nin 2216
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3807:72:
3807 | j=m(l) 2217
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3808:72:
3808 | u=a(j)*v(j)+dot_product(wr,x(:,j)) 2218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3809:72:
3809 | if(abs(u) .gt. vp(j)*sa)goto 16021 2218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3810:72:
3810 | at=0.0 2218
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3811:72:
3811 | goto 16031 2219
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3812:72:
3812 | 16021 continue 2219
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3813:72:
3813 | at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal) 2219
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3814:72:
3814 | 16031 continue 2220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3815:72:
3815 | 16011 continue 2220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3816:72:
3816 | if(at .eq. a(j))goto 16051 2220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3817:72:
3817 | del=at-a(j) 2220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3818:72:
3818 | a(j)=at 2220
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3819:72:
3819 | dli=max(dli,v(j)*del**2) 2221
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3820:72:
3820 | wr=wr-del*w*x(:,j) 2221
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3821:72:
3821 | f=f+del*x(:,j) 2222
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3822:72:
3822 | 16051 continue 2223
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3823:72:
3823 | 16001 continue 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3824:72:
3824 | 16002 continue 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3825:72:
3825 | if(dli.lt.cthr)goto 15992 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3826:72:
3826 | if(nlp .le. maxit)goto 16071 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3827:72:
3827 | jerr=-ilm 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3828:72:
3828 | return 2224
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3829:72:
3829 | 16071 continue 2225
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3830:72:
3830 | goto 15991 2226
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3831:72:
3831 | 15992 continue 2226
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3832:72:
3832 | goto 15881 2227
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3833:72:
3833 | 15882 continue 2227
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3834:72:
3834 | if(nin.gt.nx)goto 15872 2228
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3835:72:
3835 | e=q*exp(sign(min(abs(f),fmax),f)) 2229
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3836:72:
3836 | call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu) 2230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3837:72:
3837 | if(jerr .eq. 0)goto 16091 2230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3838:72:
3838 | jerr=jerr-ilm 2230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3839:72:
3839 | go to 11790 2230
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3840:72:
3840 | 16091 continue 2231
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3841:72:
3841 | ix=0 2232
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3842:72:
3842 | 16100 do 16101 j=1,nin 2232
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3843:72:
3843 | k=m(j) 2233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3844:72:
3844 | if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101 2233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3845:72:
3845 | ix=1 2233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3846:72:
3846 | goto 16102 2233
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3847:72:
3847 | 16101 continue 2234
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3848:72:
3848 | 16102 continue 2234
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3849:72:
3849 | if(ix .ne. 0)goto 16121 2235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3850:72:
3850 | 16130 do 16131 k=1,ni 2235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3851:72:
3851 | if(ixx(k).eq.1)goto 16131 2235
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3852:72:
3852 | if(ju(k).eq.0)goto 16131 2236
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3853:72:
3853 | ga(k)=abs(dot_product(wr,x(:,k))) 2237
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3854:72:
3854 | if(ga(k) .le. sa*vp(k))goto 16151 2237
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3855:72:
3855 | ixx(k)=1 2237
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3856:72:
3856 | ix=1 2237
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3857:72:
3857 | 16151 continue 2238
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3858:72:
3858 | 16131 continue 2239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3859:72:
3859 | 16132 continue 2239
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3860:72:
3860 | if(ix.eq.1) go to 10680 2240
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3861:72:
3861 | goto 15872 2241
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3862:72:
3862 | 16121 continue 2242
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3863:72:
3863 | goto 15871 2243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3864:72:
3864 | 15872 continue 2243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3865:72:
3865 | if(nin .le. nx)goto 16171 2243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3866:72:
3866 | jerr=-10000-ilm 2243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3867:72:
3867 | goto 15792 2243
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3868:72:
3868 | 16171 continue 2244
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3869:72:
3869 | if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin)) 2244
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3870:72:
3870 | kin(ilm)=nin 2245
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3871:72:
3871 | alm(ilm)=al 2245
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3872:72:
3872 | lmu=ilm 2246
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3873:72:
3873 | dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr 2247
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3874:72:
3874 | if(ilm.lt.mnl)goto 15791 2247
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3875:72:
3875 | if(flmin.ge.1.0)goto 15791 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3876:72:
3876 | me=0 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3877:72:
3877 | 16180 do 16181 j=1,nin 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3878:72:
3878 | if(ao(j,ilm).ne.0.0) me=me+1 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3879:72:
3879 | 16181 continue 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3880:72:
3880 | 16182 continue 2248
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3881:72:
3881 | if(me.gt.ne)goto 15792 2249
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3882:72:
3882 | if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792 2250
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3883:72:
3883 | if(dev(ilm).gt.devmax)goto 15792 2251
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3884:72:
3884 | 15791 continue 2252
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3885:72:
3885 | 15792 continue 2252
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3886:72:
3886 | g=f 2253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3887:72:
3887 | 11790 continue 2253
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3888:72:
3888 | deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx) 2254
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3889:72:
3889 | return 2255
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3890:72:
3890 | end 2256
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3891:72:
3891 | subroutine cxmodval(ca,ia,nin,n,x,f) 2257
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3892:72:
3892 | real ca(nin),x(n,*),f(n) 2257
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3893:72:
3893 | integer ia(nin) 2258
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3894:72:
3894 | f=0.0 2258
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3895:72:
3895 | if(nin.le.0) return 2259
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3896:72:
3896 | 16190 do 16191 i=1,n 2259
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3897:72:
3897 | f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin))) 2259
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3898:72:
3898 | 16191 continue 2260
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3899:72:
3899 | 16192 continue 2260
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3900:72:
3900 | return 2261
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3901:72:
3901 | end 2262
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3902:72:
3902 | subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr) 2263
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3903:72:
3903 | real y(no),d(no),q(no) 2263
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3904:72:
3904 | integer jp(no),kp(*) 2264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3905:72:
3905 | 16200 do 16201 j=1,no 2264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3906:72:
3906 | jp(j)=j 2264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3907:72:
3907 | 16201 continue 2264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3908:72:
3908 | 16202 continue 2264
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3909:72:
3909 | call psort7(y,jp,1,no) 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3910:72:
3910 | nj=0 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3911:72:
3911 | 16210 do 16211 j=1,no 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3912:72:
3912 | if(q(jp(j)).le.0.0)goto 16211 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3913:72:
3913 | nj=nj+1 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3914:72:
3914 | jp(nj)=jp(j) 2265
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3915:72:
3915 | 16211 continue 2266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3916:72:
3916 | 16212 continue 2266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3917:72:
3917 | if(nj .ne. 0)goto 16231 2266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3918:72:
3918 | jerr=20000 2266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3919:72:
3919 | return 2266
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3920:72:
3920 | 16231 continue 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3921:72:
3921 | j=1 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3922:72:
3922 | 16240 continue 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3923:72:
3923 | 16241 if(d(jp(j)).gt.0.0)goto 16242 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3924:72:
3924 | j=j+1 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3925:72:
3925 | if(j.gt.nj)goto 16242 2267
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3926:72:
3926 | goto 16241 2268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3927:72:
3927 | 16242 continue 2268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3928:72:
3928 | if(j .lt. nj-1)goto 16261 2268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3929:72:
3929 | jerr=30000 2268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3930:72:
3930 | return 2268
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3931:72:
3931 | 16261 continue 2269
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3932:72:
3932 | j0=j-1 2269
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3933:72:
3933 | nj=nj-j0 2269
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3934:72:
3934 | 16270 do 16271 j=1,nj 2269
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3935:72:
3935 | jp(j)=jp(j+j0) 2269
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3936:72:
3936 | 16271 continue 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3937:72:
3937 | 16272 continue 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3938:72:
3938 | jerr=0 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3939:72:
3939 | nk=0 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3940:72:
3940 | t0=y(jp(1)) 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3941:72:
3941 | yk=t0 2270
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3942:72:
3942 | j=2 2271
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3943:72:
3943 | 16280 continue 2271
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3944:72:
3944 | 16281 continue 2271
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3945:72:
3945 | 16290 continue 2272
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3946:72:
3946 | 16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292 2272
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3947:72:
3947 | j=j+1 2272
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3948:72:
3948 | if(j.gt.nj)goto 16292 2272
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3949:72:
3949 | goto 16291 2273
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3950:72:
3950 | 16292 continue 2273
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3951:72:
3951 | nk=nk+1 2273
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3952:72:
3952 | kp(nk)=j-1 2273
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3953:72:
3953 | if(j.gt.nj)goto 16282 2274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3954:72:
3954 | if(j .ne. nj)goto 16311 2274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3955:72:
3955 | nk=nk+1 2274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3956:72:
3956 | kp(nk)=nj 2274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3957:72:
3957 | goto 16282 2274
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3958:72:
3958 | 16311 continue 2275
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3959:72:
3959 | yk=y(jp(j)) 2275
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3960:72:
3960 | j=j+1 2276
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3961:72:
3961 | goto 16281 2277
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3962:72:
3962 | 16282 continue 2277
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3963:72:
3963 | return 2278
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3964:72:
3964 | end 2279
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3965:72:
3965 | subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u) 2280
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3966:72:
3966 | real d(no),dk(nk),wr(no),w(no) 2281
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3967:72:
3967 | real e(no),u(no),b,c 2281
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3968:72:
3968 | integer kp(nk),jp(no) 2282
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3969:72:
3969 | call usk(no,nk,kp,jp,e,u) 2283
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3970:72:
3970 | b=dk(1)/u(1) 2283
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3971:72:
3971 | c=dk(1)/u(1)**2 2283
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3972:72:
3972 | jerr=0 2284
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3973:72:
3973 | 16320 do 16321 j=1,kp(1) 2284
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3974:72:
3974 | i=jp(j) 2285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3975:72:
3975 | w(i)=e(i)*(b-e(i)*c) 2285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3976:72:
3976 | if(w(i) .gt. 0.0)goto 16341 2285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3977:72:
3977 | jerr=-3 2285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3978:72:
3978 | return 2285
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3979:72:
3979 | 16341 continue 2286
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3980:72:
3980 | wr(i)=d(i)-e(i)*b 2287
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3981:72:
3981 | 16321 continue 2288
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3982:72:
3982 | 16322 continue 2288
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3983:72:
3983 | 16350 do 16351 k=2,nk 2288
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3984:72:
3984 | j1=kp(k-1)+1 2288
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3985:72:
3985 | j2=kp(k) 2289
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3986:72:
3986 | b=b+dk(k)/u(k) 2289
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3987:72:
3987 | c=c+dk(k)/u(k)**2 2290
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3988:72:
3988 | 16360 do 16361 j=j1,j2 2290
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3989:72:
3989 | i=jp(j) 2291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3990:72:
3990 | w(i)=e(i)*(b-e(i)*c) 2291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3991:72:
3991 | if(w(i) .gt. 0.0)goto 16381 2291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3992:72:
3992 | jerr=-30000 2291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3993:72:
3993 | return 2291
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3994:72:
3994 | 16381 continue 2292
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3995:72:
3995 | wr(i)=d(i)-e(i)*b 2293
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3996:72:
3996 | 16361 continue 2294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3997:72:
3997 | 16362 continue 2294
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3998:72:
3998 | 16351 continue 2295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3999:72:
3999 | 16352 continue 2295
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4000:72:
4000 | return 2296
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4001:72:
4001 | end 2297
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4002:72:
4002 | subroutine vars(no,ni,x,w,ixx,v) 2298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4003:72:
4003 | real x(no,ni),w(no),v(ni) 2298
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4004:72:
4004 | integer ixx(ni) 2299
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4005:72:
4005 | 16390 do 16391 j=1,ni 2299
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4006:72:
4006 | if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2) 2299
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4007:72:
4007 | 16391 continue 2300
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4008:72:
4008 | 16392 continue 2300
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4009:72:
4009 | return 2301
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4010:72:
4010 | end 2302
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4011:72:
4011 | subroutine died(no,nk,d,kp,jp,dk) 2303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4012:72:
4012 | real d(no),dk(nk) 2303
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4013:72:
4013 | integer kp(nk),jp(no) 2304
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4014:72:
4014 | dk(1)=sum(d(jp(1:kp(1)))) 2305
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4015:72:
4015 | 16400 do 16401 k=2,nk 2305
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4016:72:
4016 | dk(k)=sum(d(jp((kp(k-1)+1):kp(k)))) 2305
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4017:72:
4017 | 16401 continue 2306
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4018:72:
4018 | 16402 continue 2306
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4019:72:
4019 | return 2307
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4020:72:
4020 | end 2308
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4021:72:
4021 | subroutine usk(no,nk,kp,jp,e,u) 2309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4022:72:
4022 | real e(no),u(nk),h 2309
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4023:72:
4023 | integer kp(nk),jp(no) 2310
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4024:72:
4024 | h=0.0 2311
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4025:72:
4025 | 16410 do 16411 k=nk,1,-1 2311
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4026:72:
4026 | j2=kp(k) 2312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4027:72:
4027 | j1=1 2312
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4028:72:
4028 | if(k.gt.1) j1=kp(k-1)+1 2313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4029:72:
4029 | 16420 do 16421 j=j2,j1,-1 2313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4030:72:
4030 | h=h+e(jp(j)) 2313
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4031:72:
4031 | 16421 continue 2314
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4032:72:
4032 | 16422 continue 2314
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4033:72:
4033 | u(k)=h 2315
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4034:72:
4034 | 16411 continue 2316
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4035:72:
4035 | 16412 continue 2316
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4036:72:
4036 | return 2317
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4037:72:
4037 | end 2318
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4038:72:
4038 | function risk(no,ni,nk,d,dk,f,e,kp,jp,u) 2319
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4039:72:
4039 | real d(no),dk(nk),f(no) 2320
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4040:72:
4040 | integer kp(nk),jp(no) 2320
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4041:72:
4041 | real e(no),u(nk),s 2321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4042:72:
4042 | call usk(no,nk,kp,jp,e,u) 2321
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4043:72:
4043 | u=log(u) 2322
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4044:72:
4044 | risk=dot_product(d,f)-dot_product(dk,u) 2323
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4045:72:
4045 | return 2324
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4046:72:
4046 | end 2325
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4047:72:
4047 | subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr) 2326
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4048:72:
4048 | real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam) 2327
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4052:72:
4052 | allocate(e(1:no),stat=jerr) 2333
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4053:72:
4053 | allocate(q(1:no),stat=ierr) 2333
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4054:72:
4054 | jerr=jerr+ierr 2334
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4055:72:
4055 | allocate(uu(1:no),stat=ierr) 2334
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4056:72:
4056 | jerr=jerr+ierr 2335
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4057:72:
4057 | allocate(f(1:no),stat=ierr) 2335
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4058:72:
4058 | jerr=jerr+ierr 2336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4059:72:
4059 | allocate(dk(1:no),stat=ierr) 2336
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4060:72:
4060 | jerr=jerr+ierr 2337
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4061:72:
4061 | allocate(jp(1:no),stat=ierr) 2337
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4062:72:
4062 | jerr=jerr+ierr 2338
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4063:72:
4063 | allocate(kp(1:no),stat=ierr) 2338
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4064:72:
4064 | jerr=jerr+ierr 2339
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4065:72:
4065 | allocate(dq(1:no),stat=ierr) 2339
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4066:72:
4066 | jerr=jerr+ierr 2340
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4067:72:
4067 | allocate(xm(1:ni),stat=ierr) 2340
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4068:72:
4068 | jerr=jerr+ierr 2341
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4069:72:
4069 | if(jerr.ne.0) go to 11790 2342
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4070:72:
4070 | q=max(0.0,w) 2342
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4071:72:
4071 | sw=sum(q) 2343
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4072:72:
4072 | if(sw .gt. 0.0)goto 16441 2343
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4073:72:
4073 | jerr=9999 2343
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4074:72:
4074 | go to 11790 2343
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4075:72:
4075 | 16441 continue 2344
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4076:72:
4076 | call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4077:72:
4077 | if(jerr.ne.0) go to 11790 2345
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4078:72:
4078 | fmax=log(huge(e(1))*0.1) 2346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4079:72:
4079 | dq=d*q 2346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4080:72:
4080 | call died(no,nk,dq,kp,jp,dk) 2346
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4081:72:
4081 | gm=dot_product(q,g)/sw 2347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4082:72:
4082 | 16450 do 16451 j=1,ni 2347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4083:72:
4083 | xm(j)=dot_product(q,x(:,j))/sw 2347
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4084:72:
4084 | 16451 continue 2348
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4085:72:
4085 | 16452 continue 2348
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4086:72:
4086 | 16460 do 16461 lam=1,nlam 2349
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4087:72:
4087 | 16470 do 16471 i=1,no 2349
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4088:72:
4088 | f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm)) 2350
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4089:72:
4089 | e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i))) 2351
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4090:72:
4090 | 16471 continue 2352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4091:72:
4091 | 16472 continue 2352
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4092:72:
4092 | flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu) 2353
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4093:72:
4093 | 16461 continue 2354
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4094:72:
4094 | 16462 continue 2354
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4095:72:
4095 | 11790 continue 2354
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4096:72:
4096 | deallocate(e,uu,dk,f,jp,kp,dq) 2355
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4097:72:
4097 | return 2356
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4098:72:
4098 | end 2357
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4099:72:
4099 | subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam 2359
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4101:72:
4101 | real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam) 2360
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4102:72:
4102 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2361
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4103:72:
4103 | integer jd(*),ia(nx),nin(nlam) 2362
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4106:72:
4106 | if(maxval(vp) .gt. 0.0)goto 16491 2366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4107:72:
4107 | jerr=10000 2366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4108:72:
4108 | return 2366
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4109:72:
4109 | 16491 continue 2367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4110:72:
4110 | if(minval(y) .ge. 0.0)goto 16511 2367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4111:72:
4111 | jerr=8888 2367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4112:72:
4112 | return 2367
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4113:72:
4113 | 16511 continue 2368
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4114:72:
4114 | allocate(ww(1:no),stat=jerr) 2369
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4115:72:
4115 | allocate(ju(1:ni),stat=ierr) 2369
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4116:72:
4116 | jerr=jerr+ierr 2370
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4117:72:
4117 | allocate(vq(1:ni),stat=ierr) 2370
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4118:72:
4118 | jerr=jerr+ierr 2371
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4119:72:
4119 | allocate(xm(1:ni),stat=ierr) 2371
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4120:72:
4120 | jerr=jerr+ierr 2372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4121:72:
4121 | if(isd .le. 0)goto 16531 2372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4122:72:
4122 | allocate(xs(1:ni),stat=ierr) 2372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4123:72:
4123 | jerr=jerr+ierr 2372
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4124:72:
4124 | 16531 continue 2373
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4125:72:
4125 | if(jerr.ne.0) return 2374
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4126:72:
4126 | call chkvars(no,ni,x,ju) 2375
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4127:72:
4127 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4128:72:
4128 | if(maxval(ju) .gt. 0)goto 16551 2376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4129:72:
4129 | jerr=7777 2376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4130:72:
4130 | go to 11790 2376
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4131:72:
4131 | 16551 continue 2377
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4132:72:
4132 | vq=max(0.0,vp) 2377
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4133:72:
4133 | vq=vq*ni/sum(vq) 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4134:72:
4134 | ww=max(0.0,w) 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4135:72:
4135 | sw=sum(ww) 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4136:72:
4136 | if(sw .gt. 0.0)goto 16571 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4137:72:
4137 | jerr=9999 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4138:72:
4138 | go to 11790 2378
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4139:72:
4139 | 16571 continue 2379
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4140:72:
4140 | ww=ww/sw 2380
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4141:72:
4141 | call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 2381
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4142:72:
4142 | call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr, 2383
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4144:72:
4144 | if(jerr.gt.0) go to 11790 2383
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4145:72:
4145 | dev0=2.0*sw*dev0 2384
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4146:72:
4146 | 16580 do 16581 k=1,lmu 2384
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4147:72:
4147 | nk=nin(k) 2385
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4148:72:
4148 | if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2386
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4149:72:
4149 | a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk))) 2387
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4150:72:
4150 | 16581 continue 2388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4151:72:
4151 | 16582 continue 2388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4152:72:
4152 | 11790 continue 2388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4153:72:
4153 | deallocate(ww,ju,vq,xm) 2388
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4154:72:
4154 | if(isd.gt.0) deallocate(xs) 2389
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4155:72:
4155 | return 2390
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4156:72:
4156 | end 2391
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4157:72:
4157 | subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam 2393
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4159:72:
4159 | parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99 2394
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4161:72:
4161 | real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam) 2395
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4162:72:
4162 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2396
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4163:72:
4163 | integer ju(ni),m(nx),kin(nlam) 2397
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4166:72:
4166 | allocate(a(1:ni),stat=jerr) 2402
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4167:72:
4167 | allocate(as(1:ni),stat=ierr) 2402
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4168:72:
4168 | jerr=jerr+ierr 2403
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4169:72:
4169 | allocate(t(1:no),stat=ierr) 2403
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4170:72:
4170 | jerr=jerr+ierr 2404
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4171:72:
4171 | allocate(mm(1:ni),stat=ierr) 2404
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4172:72:
4172 | jerr=jerr+ierr 2405
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4173:72:
4173 | allocate(ga(1:ni),stat=ierr) 2405
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4174:72:
4174 | jerr=jerr+ierr 2406
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4175:72:
4175 | allocate(ixx(1:ni),stat=ierr) 2406
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4176:72:
4176 | jerr=jerr+ierr 2407
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4177:72:
4177 | allocate(wr(1:no),stat=ierr) 2407
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4178:72:
4178 | jerr=jerr+ierr 2408
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4179:72:
4179 | allocate(v(1:ni),stat=ierr) 2408
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4180:72:
4180 | jerr=jerr+ierr 2409
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4181:72:
4181 | allocate(w(1:no),stat=ierr) 2409
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4182:72:
4182 | jerr=jerr+ierr 2410
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4183:72:
4183 | allocate(f(1:no),stat=ierr) 2410
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4184:72:
4184 | jerr=jerr+ierr 2411
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4185:72:
4185 | if(jerr.ne.0) return 2412
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4186:72:
4186 | bta=parm 2412
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4187:72:
4187 | omb=1.0-bta 2413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4188:72:
4188 | t=q*y 2413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4189:72:
4189 | yb=sum(t) 2413
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4190:72:
4190 | fmax=log(huge(bta)*0.1) 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4191:72:
4191 | if(nonzero(no,g) .ne. 0)goto 16601 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4192:72:
4192 | w=q*yb 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4193:72:
4193 | az=log(yb) 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4194:72:
4194 | f=az 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4195:72:
4195 | dv0=yb*(log(yb)-1.0) 2414
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4196:72:
4196 | goto 16611 2415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4197:72:
4197 | 16601 continue 2415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4198:72:
4198 | w=q*exp(sign(min(abs(g),fmax),g)) 2415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4199:72:
4199 | v0=sum(w) 2415
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4200:72:
4200 | eaz=yb/v0 2416
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4201:72:
4201 | w=eaz*w 2416
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4202:72:
4202 | az=log(eaz) 2416
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4203:72:
4203 | f=az+g 2417
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4204:72:
4204 | dv0=dot_product(t,g)-yb*(1.0-az) 2418
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4205:72:
4205 | 16611 continue 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4206:72:
4206 | 16591 continue 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4207:72:
4207 | a=0.0 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4208:72:
4208 | as=0.0 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4209:72:
4209 | wr=t-w 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4210:72:
4210 | v0=yb 2419
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4211:72:
4211 | dvr=-yb 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4212:72:
4212 | 16620 do 16621 i=1,no 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4213:72:
4213 | if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i)) 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4214:72:
4214 | 16621 continue 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4215:72:
4215 | 16622 continue 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4216:72:
4216 | dvr=dvr-dv0 2420
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4217:72:
4217 | dev0=dvr 2421
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4218:72:
4218 | if(flmin .ge. 1.0)goto 16641 2421
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4219:72:
4219 | eqs=max(eps,flmin) 2421
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4220:72:
4220 | alf=eqs**(1.0/(nlam-1)) 2421
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4221:72:
4221 | 16641 continue 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4222:72:
4222 | m=0 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4223:72:
4223 | mm=0 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4224:72:
4224 | nlp=0 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4225:72:
4225 | nin=nlp 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4226:72:
4226 | mnl=min(mnlam,nlam) 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4227:72:
4227 | shr=shri*dev0 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4228:72:
4228 | ixx=0 2422
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4229:72:
4229 | al=0.0 2423
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4230:72:
4230 | 16650 do 16651 j=1,ni 2423
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4231:72:
4231 | if(ju(j).eq.0)goto 16651 2423
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4232:72:
4232 | ga(j)=abs(dot_product(wr,x(:,j))) 2423
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4233:72:
4233 | 16651 continue 2424
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4234:72:
4234 | 16652 continue 2424
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4235:72:
4235 | 16660 do 16661 ilm=1,nlam 2424
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4236:72:
4236 | al0=al 2425
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4237:72:
4237 | if(flmin .lt. 1.0)goto 16681 2425
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4238:72:
4238 | al=ulam(ilm) 2425
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4239:72:
4239 | goto 16671 2426
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4240:72:
4240 | 16681 if(ilm .le. 2)goto 16691 2426
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4241:72:
4241 | al=al*alf 2426
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4242:72:
4242 | goto 16671 2427
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4243:72:
4243 | 16691 if(ilm .ne. 1)goto 16701 2427
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4244:72:
4244 | al=big 2427
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4245:72:
4245 | goto 16711 2428
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4246:72:
4246 | 16701 continue 2428
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4247:72:
4247 | al0=0.0 2429
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4248:72:
4248 | 16720 do 16721 j=1,ni 2429
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4249:72:
4249 | if(ju(j).eq.0)goto 16721 2429
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4250:72:
4250 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2429
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4251:72:
4251 | 16721 continue 2430
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4252:72:
4252 | 16722 continue 2430
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4253:72:
4253 | al0=al0/max(bta,1.0e-3) 2430
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4254:72:
4254 | al=alf*al0 2431
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4255:72:
4255 | 16711 continue 2432
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4256:72:
4256 | 16671 continue 2432
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4257:72:
4257 | al2=al*omb 2432
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4258:72:
4258 | al1=al*bta 2432
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4259:72:
4259 | tlam=bta*(2.0*al-al0) 2433
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4260:72:
4260 | 16730 do 16731 k=1,ni 2433
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4261:72:
4261 | if(ixx(k).eq.1)goto 16731 2433
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4262:72:
4262 | if(ju(k).eq.0)goto 16731 2434
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4263:72:
4263 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2435
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4264:72:
4264 | 16731 continue 2436
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4265:72:
4265 | 16732 continue 2436
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4266:72:
4266 | 10680 continue 2437
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4267:72:
4267 | 16740 continue 2437
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4268:72:
4268 | 16741 continue 2437
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4269:72:
4269 | az0=az 2438
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4270:72:
4270 | if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2439
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4271:72:
4271 | 16750 do 16751 j=1,ni 2439
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4272:72:
4272 | if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2) 2439
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4273:72:
4273 | 16751 continue 2440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4274:72:
4274 | 16752 continue 2440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4275:72:
4275 | 16760 continue 2440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4276:72:
4276 | 16761 continue 2440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4277:72:
4277 | nlp=nlp+1 2440
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4278:72:
4278 | dlx=0.0 2441
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4279:72:
4279 | 16770 do 16771 k=1,ni 2441
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4280:72:
4280 | if(ixx(k).eq.0)goto 16771 2441
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4281:72:
4281 | ak=a(k) 2442
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4282:72:
4282 | u=dot_product(wr,x(:,k))+v(k)*ak 2442
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4283:72:
4283 | au=abs(u)-vp(k)*al1 2443
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4284:72:
4284 | if(au .gt. 0.0)goto 16791 2443
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4285:72:
4285 | a(k)=0.0 2443
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4286:72:
4286 | goto 16801 2444
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4287:72:
4287 | 16791 continue 2444
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4288:72:
4288 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2444
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4289:72:
4289 | 16801 continue 2445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4290:72:
4290 | 16781 continue 2445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4291:72:
4291 | if(a(k).eq.ak)goto 16771 2445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4292:72:
4292 | d=a(k)-ak 2445
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4293:72:
4293 | dlx=max(dlx,v(k)*d**2) 2446
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4294:72:
4294 | wr=wr-d*w*x(:,k) 2446
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4295:72:
4295 | f=f+d*x(:,k) 2447
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4296:72:
4296 | if(mm(k) .ne. 0)goto 16821 2447
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4297:72:
4297 | nin=nin+1 2447
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4298:72:
4298 | if(nin.gt.nx)goto 16772 2448
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4299:72:
4299 | mm(k)=nin 2448
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4300:72:
4300 | m(nin)=k 2449
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4301:72:
4301 | 16821 continue 2450
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4302:72:
4302 | 16771 continue 2451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4303:72:
4303 | 16772 continue 2451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4304:72:
4304 | if(nin.gt.nx)goto 16762 2451
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4305:72:
4305 | d=sum(wr)/v0 2452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4306:72:
4306 | az=az+d 2452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4307:72:
4307 | dlx=max(dlx,v0*d**2) 2452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4308:72:
4308 | wr=wr-d*w 2452
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4309:72:
4309 | f=f+d 2453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4310:72:
4310 | if(dlx.lt.shr)goto 16762 2453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4311:72:
4311 | if(nlp .le. maxit)goto 16841 2453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4312:72:
4312 | jerr=-ilm 2453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4313:72:
4313 | return 2453
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4314:72:
4314 | 16841 continue 2454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4315:72:
4315 | 16850 continue 2454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4316:72:
4316 | 16851 continue 2454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4317:72:
4317 | nlp=nlp+1 2454
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4318:72:
4318 | dlx=0.0 2455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4319:72:
4319 | 16860 do 16861 l=1,nin 2455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4320:72:
4320 | k=m(l) 2455
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4321:72:
4321 | ak=a(k) 2456
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4322:72:
4322 | u=dot_product(wr,x(:,k))+v(k)*ak 2456
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4323:72:
4323 | au=abs(u)-vp(k)*al1 2457
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4324:72:
4324 | if(au .gt. 0.0)goto 16881 2457
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4325:72:
4325 | a(k)=0.0 2457
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4326:72:
4326 | goto 16891 2458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4327:72:
4327 | 16881 continue 2458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4328:72:
4328 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2458
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4329:72:
4329 | 16891 continue 2459
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4330:72:
4330 | 16871 continue 2459
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4331:72:
4331 | if(a(k).eq.ak)goto 16861 2459
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4332:72:
4332 | d=a(k)-ak 2459
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4333:72:
4333 | dlx=max(dlx,v(k)*d**2) 2460
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4334:72:
4334 | wr=wr-d*w*x(:,k) 2460
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4335:72:
4335 | f=f+d*x(:,k) 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4336:72:
4336 | 16861 continue 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4337:72:
4337 | 16862 continue 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4338:72:
4338 | d=sum(wr)/v0 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4339:72:
4339 | az=az+d 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4340:72:
4340 | dlx=max(dlx,v0*d**2) 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4341:72:
4341 | wr=wr-d*w 2462
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4342:72:
4342 | f=f+d 2463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4343:72:
4343 | if(dlx.lt.shr)goto 16852 2463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4344:72:
4344 | if(nlp .le. maxit)goto 16911 2463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4345:72:
4345 | jerr=-ilm 2463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4346:72:
4346 | return 2463
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4347:72:
4347 | 16911 continue 2464
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4348:72:
4348 | goto 16851 2465
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4349:72:
4349 | 16852 continue 2465
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4350:72:
4350 | goto 16761 2466
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4351:72:
4351 | 16762 continue 2466
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4352:72:
4352 | if(nin.gt.nx)goto 16742 2467
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4353:72:
4353 | w=q*exp(sign(min(abs(f),fmax),f)) 2467
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4354:72:
4354 | v0=sum(w) 2467
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4355:72:
4355 | wr=t-w 2468
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4356:72:
4356 | if(v0*(az-az0)**2 .ge. shr)goto 16931 2468
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4357:72:
4357 | ix=0 2469
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4358:72:
4358 | 16940 do 16941 j=1,nin 2469
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4359:72:
4359 | k=m(j) 2470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4360:72:
4360 | if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941 2470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4361:72:
4361 | ix=1 2470
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4362:72:
4362 | goto 16942 2471
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4363:72:
4363 | 16941 continue 2472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4364:72:
4364 | 16942 continue 2472
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4365:72:
4365 | if(ix .ne. 0)goto 16961 2473
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4366:72:
4366 | 16970 do 16971 k=1,ni 2473
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4367:72:
4367 | if(ixx(k).eq.1)goto 16971 2473
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4368:72:
4368 | if(ju(k).eq.0)goto 16971 2474
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4369:72:
4369 | ga(k)=abs(dot_product(wr,x(:,k))) 2475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4370:72:
4370 | if(ga(k) .le. al1*vp(k))goto 16991 2475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4371:72:
4371 | ixx(k)=1 2475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4372:72:
4372 | ix=1 2475
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4373:72:
4373 | 16991 continue 2476
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4374:72:
4374 | 16971 continue 2477
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4375:72:
4375 | 16972 continue 2477
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4376:72:
4376 | if(ix.eq.1) go to 10680 2478
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4377:72:
4377 | goto 16742 2479
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4378:72:
4378 | 16961 continue 2480
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4379:72:
4379 | 16931 continue 2481
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4380:72:
4380 | goto 16741 2482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4381:72:
4381 | 16742 continue 2482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4382:72:
4382 | if(nin .le. nx)goto 17011 2482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4383:72:
4383 | jerr=-10000-ilm 2482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4384:72:
4384 | goto 16662 2482
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4385:72:
4385 | 17011 continue 2483
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4386:72:
4386 | if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin)) 2483
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4387:72:
4387 | kin(ilm)=nin 2484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4388:72:
4388 | a0(ilm)=az 2484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4389:72:
4389 | alm(ilm)=al 2484
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4390:72:
4390 | lmu=ilm 2485
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4391:72:
4391 | dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr 2486
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4392:72:
4392 | if(ilm.lt.mnl)goto 16661 2486
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4393:72:
4393 | if(flmin.ge.1.0)goto 16661 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4394:72:
4394 | me=0 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4395:72:
4395 | 17020 do 17021 j=1,nin 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4396:72:
4396 | if(ca(j,ilm).ne.0.0) me=me+1 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4397:72:
4397 | 17021 continue 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4398:72:
4398 | 17022 continue 2487
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4399:72:
4399 | if(me.gt.ne)goto 16662 2488
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4400:72:
4400 | if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662 2489
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4401:72:
4401 | if(dev(ilm).gt.devmax)goto 16662 2490
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4402:72:
4402 | 16661 continue 2491
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4403:72:
4403 | 16662 continue 2491
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4404:72:
4404 | g=f 2492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4405:72:
4405 | 11790 continue 2492
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4406:72:
4406 | deallocate(t,w,wr,v,a,f,as,mm,ga,ixx) 2493
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4407:72:
4407 | return 2494
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4408:72:
4408 | end 2495
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4409:72:
4409 | function nonzero(n,v) 2496
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4410:72:
4410 | real v(n) 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4411:72:
4411 | nonzero=0 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4412:72:
4412 | 17030 do 17031 i=1,n 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4413:72:
4413 | if(v(i) .eq. 0.0)goto 17051 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4414:72:
4414 | nonzero=1 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4415:72:
4415 | return 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4416:72:
4416 | 17051 continue 2497
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4417:72:
4417 | 17031 continue 2498
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4418:72:
4418 | 17032 continue 2498
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4419:72:
4419 | return 2499
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4420:72:
4420 | end 2500
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4421:72:
4421 | subroutine solns(ni,nx,lmu,a,ia,nin,b) 2501
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4422:72:
4422 | real a(nx,lmu),b(ni,lmu) 2501
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4423:72:
4423 | integer ia(nx),nin(lmu) 2502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4424:72:
4424 | 17060 do 17061 lam=1,lmu 2502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4425:72:
4425 | call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam)) 2502
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4426:72:
4426 | 17061 continue 2503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4427:72:
4427 | 17062 continue 2503
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4428:72:
4428 | return 2504
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4429:72:
4429 | end 2505
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4430:72:
4430 | subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b) 2506
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4431:72:
4431 | real a(nx,nc,lmu),b(ni,nc,lmu) 2506
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4432:72:
4432 | integer ia(nx),nin(lmu) 2507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4433:72:
4433 | 17070 do 17071 lam=1,lmu 2507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4434:72:
4434 | call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam)) 2507
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4435:72:
4435 | 17071 continue 2508
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4436:72:
4436 | 17072 continue 2508
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4437:72:
4437 | return 2509
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4438:72:
4438 | end 2510
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4439:72:
4439 | subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr) 2511
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4440:72:
4440 | real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam) 2512
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4442:72:
4442 | if(minval(y) .ge. 0.0)goto 17091 2515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4443:72:
4443 | jerr=8888 2515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4444:72:
4444 | return 2515
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4445:72:
4445 | 17091 continue 2516
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4446:72:
4446 | allocate(w(1:no),stat=jerr) 2516
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4447:72:
4447 | if(jerr.ne.0) return 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4448:72:
4448 | w=max(0.0,q) 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4449:72:
4449 | sw=sum(w) 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4450:72:
4450 | if(sw .gt. 0.0)goto 17111 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4451:72:
4451 | jerr=9999 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4452:72:
4452 | go to 11790 2517
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4453:72:
4453 | 17111 continue 2518
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4454:72:
4454 | yb=dot_product(w,y)/sw 2518
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4455:72:
4455 | fmax=log(huge(y(1))*0.1) 2519
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4456:72:
4456 | 17120 do 17121 lam=1,nlam 2519
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4457:72:
4457 | s=0.0 2520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4458:72:
4458 | 17130 do 17131 i=1,no 2520
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4459:72:
4459 | if(w(i).le.0.0)goto 17131 2521
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4460:72:
4460 | f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:)) 2522
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4461:72:
4461 | s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f))) 2523
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4462:72:
4462 | 17131 continue 2524
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4463:72:
4463 | 17132 continue 2524
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4464:72:
4464 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2525
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4465:72:
4465 | 17121 continue 2526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4466:72:
4466 | 17122 continue 2526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4467:72:
4467 | 11790 continue 2526
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4468:72:
4468 | deallocate(w) 2527
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4469:72:
4469 | return 2528
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4470:72:
4470 | end 2529
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4471:72:
4471 | subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl 2531
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4473:72:
4473 | real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam) 2532
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4474:72:
4474 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2533
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4475:72:
4475 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 2534
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4478:72:
4478 | if(maxval(vp) .gt. 0.0)goto 17151 2538
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4479:72:
4479 | jerr=10000 2538
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4480:72:
4480 | return 2538
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4481:72:
4481 | 17151 continue 2539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4482:72:
4482 | if(minval(y) .ge. 0.0)goto 17171 2539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4483:72:
4483 | jerr=8888 2539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4484:72:
4484 | return 2539
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4485:72:
4485 | 17171 continue 2540
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4486:72:
4486 | allocate(ww(1:no),stat=jerr) 2541
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4487:72:
4487 | allocate(ju(1:ni),stat=ierr) 2541
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4488:72:
4488 | jerr=jerr+ierr 2542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4489:72:
4489 | allocate(vq(1:ni),stat=ierr) 2542
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4490:72:
4490 | jerr=jerr+ierr 2543
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4491:72:
4491 | allocate(xm(1:ni),stat=ierr) 2543
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4492:72:
4492 | jerr=jerr+ierr 2544
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4493:72:
4493 | allocate(xs(1:ni),stat=ierr) 2544
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4494:72:
4494 | jerr=jerr+ierr 2545
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4495:72:
4495 | if(jerr.ne.0) return 2546
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4496:72:
4496 | call spchkvars(no,ni,x,ix,ju) 2547
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4497:72:
4497 | if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4498:72:
4498 | if(maxval(ju) .gt. 0)goto 17191 2548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4499:72:
4499 | jerr=7777 2548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4500:72:
4500 | go to 11790 2548
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4501:72:
4501 | 17191 continue 2549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4502:72:
4502 | vq=max(0.0,vp) 2549
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4503:72:
4503 | vq=vq*ni/sum(vq) 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4504:72:
4504 | ww=max(0.0,w) 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4505:72:
4505 | sw=sum(ww) 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4506:72:
4506 | if(sw .gt. 0.0)goto 17211 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4507:72:
4507 | jerr=9999 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4508:72:
4508 | go to 11790 2550
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4509:72:
4509 | 17211 continue 2551
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4510:72:
4510 | ww=ww/sw 2552
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4511:72:
4511 | call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs) 2553
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4512:72:
4512 | call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u 2555
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4514:72:
4514 | if(jerr.gt.0) go to 11790 2555
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4515:72:
4515 | dev0=2.0*sw*dev0 2556
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4516:72:
4516 | 17220 do 17221 k=1,lmu 2556
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4517:72:
4517 | nk=nin(k) 2557
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4518:72:
4518 | if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2558
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4519:72:
4519 | a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk))) 2559
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4520:72:
4520 | 17221 continue 2560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4521:72:
4521 | 17222 continue 2560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4522:72:
4522 | 11790 continue 2560
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4523:72:
4523 | deallocate(ww,ju,vq,xm,xs) 2561
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4524:72:
4524 | return 2562
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4525:72:
4525 | end 2563
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4526:72:
4526 | subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl 2565
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4529:72:
4529 | parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99 2566
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4531:72:
4531 | real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni) 2567
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4532:72:
4532 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2568
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4533:72:
4533 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 2569
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4536:72:
4536 | allocate(a(1:ni),stat=jerr) 2574
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4537:72:
4537 | allocate(as(1:ni),stat=ierr) 2574
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4538:72:
4538 | jerr=jerr+ierr 2575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4539:72:
4539 | allocate(t(1:no),stat=ierr) 2575
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4540:72:
4540 | jerr=jerr+ierr 2576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4541:72:
4541 | allocate(mm(1:ni),stat=ierr) 2576
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4542:72:
4542 | jerr=jerr+ierr 2577
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4543:72:
4543 | allocate(ga(1:ni),stat=ierr) 2577
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4544:72:
4544 | jerr=jerr+ierr 2578
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4545:72:
4545 | allocate(ixx(1:ni),stat=ierr) 2578
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4546:72:
4546 | jerr=jerr+ierr 2579
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4547:72:
4547 | allocate(wr(1:no),stat=ierr) 2579
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4548:72:
4548 | jerr=jerr+ierr 2580
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4549:72:
4549 | allocate(v(1:ni),stat=ierr) 2580
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4550:72:
4550 | jerr=jerr+ierr 2581
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4551:72:
4551 | allocate(xm(1:ni),stat=ierr) 2581
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4552:72:
4552 | jerr=jerr+ierr 2582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4553:72:
4553 | allocate(w(1:no),stat=ierr) 2582
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4554:72:
4554 | jerr=jerr+ierr 2583
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4555:72:
4555 | allocate(qy(1:no),stat=ierr) 2583
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4556:72:
4556 | jerr=jerr+ierr 2584
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4557:72:
4557 | if(jerr.ne.0) return 2585
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4558:72:
4558 | bta=parm 2585
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4559:72:
4559 | omb=1.0-bta 2585
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4560:72:
4560 | fmax=log(huge(bta)*0.1) 2586
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4561:72:
4561 | qy=q*y 2586
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4562:72:
4562 | yb=sum(qy) 2587
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4563:72:
4563 | if(nonzero(no,g) .ne. 0)goto 17241 2587
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4564:72:
4564 | w=q*yb 2587
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4565:72:
4565 | az=log(yb) 2587
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4566:72:
4566 | uu=az 2588
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4567:72:
4567 | xm=yb*xb 2588
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4568:72:
4568 | t=0.0 2588
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4569:72:
4569 | dv0=yb*(log(yb)-1.0) 2589
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4570:72:
4570 | goto 17251 2590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4571:72:
4571 | 17241 continue 2590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4572:72:
4572 | w=q*exp(sign(min(abs(g),fmax),g)) 2590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4573:72:
4573 | ww=sum(w) 2590
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4574:72:
4574 | eaz=yb/ww 2591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4575:72:
4575 | w=eaz*w 2591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4576:72:
4576 | az=log(eaz) 2591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4577:72:
4577 | uu=az 2591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4578:72:
4578 | t=g 2591
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4579:72:
4579 | dv0=dot_product(qy,g)-yb*(1.0-az) 2592
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4580:72:
4580 | 17260 do 17261 j=1,ni 2592
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4581:72:
4581 | if(ju(j).eq.0)goto 17261 2592
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4582:72:
4582 | jb=ix(j) 2592
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4583:72:
4583 | je=ix(j+1)-1 2593
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4584:72:
4584 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2594
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4585:72:
4585 | 17261 continue 2595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4586:72:
4586 | 17262 continue 2595
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4587:72:
4587 | 17251 continue 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4588:72:
4588 | 17231 continue 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4589:72:
4589 | tt=yb*uu 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4590:72:
4590 | ww=yb 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4591:72:
4591 | wr=qy-q*(yb*(1.0-uu)) 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4592:72:
4592 | a=0.0 2596
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4593:72:
4593 | as=0.0 2597
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4594:72:
4594 | dvr=-yb 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4595:72:
4595 | 17270 do 17271 i=1,no 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4596:72:
4596 | if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i)) 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4597:72:
4597 | 17271 continue 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4598:72:
4598 | 17272 continue 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4599:72:
4599 | dvr=dvr-dv0 2598
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4600:72:
4600 | dev0=dvr 2599
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4601:72:
4601 | if(flmin .ge. 1.0)goto 17291 2599
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4602:72:
4602 | eqs=max(eps,flmin) 2599
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4603:72:
4603 | alf=eqs**(1.0/(nlam-1)) 2599
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4604:72:
4604 | 17291 continue 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4605:72:
4605 | m=0 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4606:72:
4606 | mm=0 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4607:72:
4607 | nlp=0 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4608:72:
4608 | nin=nlp 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4609:72:
4609 | mnl=min(mnlam,nlam) 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4610:72:
4610 | shr=shri*dev0 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4611:72:
4611 | al=0.0 2600
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4612:72:
4612 | ixx=0 2601
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4613:72:
4613 | 17300 do 17301 j=1,ni 2601
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4614:72:
4614 | if(ju(j).eq.0)goto 17301 2602
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4615:72:
4615 | jb=ix(j) 2602
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4616:72:
4616 | je=ix(j+1)-1 2603
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4617:72:
4617 | ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j) 2605
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4619:72:
4619 | 17301 continue 2606
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4620:72:
4620 | 17302 continue 2606
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4621:72:
4621 | 17310 do 17311 ilm=1,nlam 2606
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4622:72:
4622 | al0=al 2607
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4623:72:
4623 | if(flmin .lt. 1.0)goto 17331 2607
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4624:72:
4624 | al=ulam(ilm) 2607
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4625:72:
4625 | goto 17321 2608
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4626:72:
4626 | 17331 if(ilm .le. 2)goto 17341 2608
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4627:72:
4627 | al=al*alf 2608
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4628:72:
4628 | goto 17321 2609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4629:72:
4629 | 17341 if(ilm .ne. 1)goto 17351 2609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4630:72:
4630 | al=big 2609
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4631:72:
4631 | goto 17361 2610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4632:72:
4632 | 17351 continue 2610
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4633:72:
4633 | al0=0.0 2611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4634:72:
4634 | 17370 do 17371 j=1,ni 2611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4635:72:
4635 | if(ju(j).eq.0)goto 17371 2611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4636:72:
4636 | if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2611
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4637:72:
4637 | 17371 continue 2612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4638:72:
4638 | 17372 continue 2612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4639:72:
4639 | al0=al0/max(bta,1.0e-3) 2612
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4640:72:
4640 | al=alf*al0 2613
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4641:72:
4641 | 17361 continue 2614
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4642:72:
4642 | 17321 continue 2614
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4643:72:
4643 | al2=al*omb 2614
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4644:72:
4644 | al1=al*bta 2614
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4645:72:
4645 | tlam=bta*(2.0*al-al0) 2615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4646:72:
4646 | 17380 do 17381 k=1,ni 2615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4647:72:
4647 | if(ixx(k).eq.1)goto 17381 2615
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4648:72:
4648 | if(ju(k).eq.0)goto 17381 2616
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4649:72:
4649 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2617
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4650:72:
4650 | 17381 continue 2618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4651:72:
4651 | 17382 continue 2618
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4652:72:
4652 | 10680 continue 2619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4653:72:
4653 | 17390 continue 2619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4654:72:
4654 | 17391 continue 2619
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4655:72:
4655 | az0=az 2620
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4656:72:
4656 | if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2621
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4657:72:
4657 | 17400 do 17401 j=1,ni 2621
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4658:72:
4658 | if(ixx(j).eq.0)goto 17401 2621
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4659:72:
4659 | jb=ix(j) 2621
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4660:72:
4660 | je=ix(j+1)-1 2622
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4661:72:
4661 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2623
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4662:72:
4662 | v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2) -2.0*xb(j)*xm(j)+ww*x 2625
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4664:72:
4664 | 17401 continue 2626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4665:72:
4665 | 17402 continue 2626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4666:72:
4666 | 17410 continue 2626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4667:72:
4667 | 17411 continue 2626
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4668:72:
4668 | nlp=nlp+1 2627
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4669:72:
4669 | dlx=0.0 2628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4670:72:
4670 | 17420 do 17421 k=1,ni 2628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4671:72:
4671 | if(ixx(k).eq.0)goto 17421 2628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4672:72:
4672 | jb=ix(k) 2628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4673:72:
4673 | je=ix(k+1)-1 2628
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4674:72:
4674 | ak=a(k) 2629
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4675:72:
4675 | u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k) 2631
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4677:72:
4677 | au=abs(u)-vp(k)*al1 2632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4678:72:
4678 | if(au .gt. 0.0)goto 17441 2632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4679:72:
4679 | a(k)=0.0 2632
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4680:72:
4680 | goto 17451 2633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4681:72:
4681 | 17441 continue 2633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4682:72:
4682 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2633
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4683:72:
4683 | 17451 continue 2634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4684:72:
4684 | 17431 continue 2634
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4685:72:
4685 | if(a(k).eq.ak)goto 17421 2635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4686:72:
4686 | if(mm(k) .ne. 0)goto 17471 2635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4687:72:
4687 | nin=nin+1 2635
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4688:72:
4688 | if(nin.gt.nx)goto 17422 2636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4689:72:
4689 | mm(k)=nin 2636
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4690:72:
4690 | m(nin)=k 2637
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4691:72:
4691 | 17471 continue 2638
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4692:72:
4692 | d=a(k)-ak 2638
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4693:72:
4693 | dlx=max(dlx,v(k)*d**2) 2638
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4694:72:
4694 | dv=d/xs(k) 2639
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4695:72:
4695 | wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je) 2640
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4696:72:
4696 | t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je) 2641
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4697:72:
4697 | uu=uu-dv*xb(k) 2641
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4698:72:
4698 | tt=tt-dv*xm(k) 2642
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4699:72:
4699 | 17421 continue 2643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4700:72:
4700 | 17422 continue 2643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4701:72:
4701 | if(nin.gt.nx)goto 17412 2643
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4702:72:
4702 | d=tt/ww-uu 2644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4703:72:
4703 | az=az+d 2644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4704:72:
4704 | dlx=max(dlx,ww*d**2) 2644
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4705:72:
4705 | uu=uu+d 2645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4706:72:
4706 | if(dlx.lt.shr)goto 17412 2645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4707:72:
4707 | if(nlp .le. maxit)goto 17491 2645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4708:72:
4708 | jerr=-ilm 2645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4709:72:
4709 | return 2645
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4710:72:
4710 | 17491 continue 2646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4711:72:
4711 | 17500 continue 2646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4712:72:
4712 | 17501 continue 2646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4713:72:
4713 | nlp=nlp+1 2646
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4714:72:
4714 | dlx=0.0 2647
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4715:72:
4715 | 17510 do 17511 l=1,nin 2647
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4716:72:
4716 | k=m(l) 2648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4717:72:
4717 | jb=ix(k) 2648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4718:72:
4718 | je=ix(k+1)-1 2648
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4719:72:
4719 | ak=a(k) 2649
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4720:72:
4720 | u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k) 2651
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4722:72:
4722 | au=abs(u)-vp(k)*al1 2652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4723:72:
4723 | if(au .gt. 0.0)goto 17531 2652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4724:72:
4724 | a(k)=0.0 2652
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4725:72:
4725 | goto 17541 2653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4726:72:
4726 | 17531 continue 2653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4727:72:
4727 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2653
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4728:72:
4728 | 17541 continue 2654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4729:72:
4729 | 17521 continue 2654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4730:72:
4730 | if(a(k).eq.ak)goto 17511 2654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4731:72:
4731 | d=a(k)-ak 2654
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4732:72:
4732 | dlx=max(dlx,v(k)*d**2) 2655
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4733:72:
4733 | dv=d/xs(k) 2655
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4734:72:
4734 | wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je) 2656
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4735:72:
4735 | t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je) 2657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4736:72:
4736 | uu=uu-dv*xb(k) 2657
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4737:72:
4737 | tt=tt-dv*xm(k) 2658
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4738:72:
4738 | 17511 continue 2659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4739:72:
4739 | 17512 continue 2659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4740:72:
4740 | d=tt/ww-uu 2659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4741:72:
4741 | az=az+d 2659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4742:72:
4742 | dlx=max(dlx,ww*d**2) 2659
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4743:72:
4743 | uu=uu+d 2660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4744:72:
4744 | if(dlx.lt.shr)goto 17502 2660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4745:72:
4745 | if(nlp .le. maxit)goto 17561 2660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4746:72:
4746 | jerr=-ilm 2660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4747:72:
4747 | return 2660
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4748:72:
4748 | 17561 continue 2661
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4749:72:
4749 | goto 17501 2662
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4750:72:
4750 | 17502 continue 2662
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4751:72:
4751 | goto 17411 2663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4752:72:
4752 | 17412 continue 2663
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4753:72:
4753 | if(nin.gt.nx)goto 17392 2664
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4754:72:
4754 | euu=exp(sign(min(abs(uu),fmax),uu)) 2665
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4755:72:
4755 | w=euu*q*exp(sign(min(abs(t),fmax),t)) 2665
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4756:72:
4756 | ww=sum(w) 2666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4757:72:
4757 | wr=qy-w*(1.0-uu) 2666
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4758:72:
4758 | tt=sum(wr) 2667
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4759:72:
4759 | if(ww*(az-az0)**2 .ge. shr)goto 17581 2667
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4760:72:
4760 | kx=0 2668
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4761:72:
4761 | 17590 do 17591 j=1,nin 2668
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4762:72:
4762 | k=m(j) 2669
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4763:72:
4763 | if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591 2669
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4764:72:
4764 | kx=1 2669
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4765:72:
4765 | goto 17592 2670
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4766:72:
4766 | 17591 continue 2671
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4767:72:
4767 | 17592 continue 2671
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4768:72:
4768 | if(kx .ne. 0)goto 17611 2672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4769:72:
4769 | 17620 do 17621 j=1,ni 2672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4770:72:
4770 | if(ixx(j).eq.1)goto 17621 2672
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4771:72:
4771 | if(ju(j).eq.0)goto 17621 2673
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4772:72:
4772 | jb=ix(j) 2673
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4773:72:
4773 | je=ix(j+1)-1 2674
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4774:72:
4774 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2675
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4775:72:
4775 | ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j) 2677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4777:72:
4777 | if(ga(j) .le. al1*vp(j))goto 17641 2677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4778:72:
4778 | ixx(j)=1 2677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4779:72:
4779 | kx=1 2677
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4780:72:
4780 | 17641 continue 2678
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4781:72:
4781 | 17621 continue 2679
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4782:72:
4782 | 17622 continue 2679
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4783:72:
4783 | if(kx.eq.1) go to 10680 2680
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4784:72:
4784 | goto 17392 2681
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4785:72:
4785 | 17611 continue 2682
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4786:72:
4786 | 17581 continue 2683
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4787:72:
4787 | goto 17391 2684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4788:72:
4788 | 17392 continue 2684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4789:72:
4789 | if(nin .le. nx)goto 17661 2684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4790:72:
4790 | jerr=-10000-ilm 2684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4791:72:
4791 | goto 17312 2684
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4792:72:
4792 | 17661 continue 2685
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4793:72:
4793 | if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin)) 2685
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4794:72:
4794 | kin(ilm)=nin 2686
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4795:72:
4795 | a0(ilm)=az 2686
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4796:72:
4796 | alm(ilm)=al 2686
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4797:72:
4797 | lmu=ilm 2687
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4798:72:
4798 | dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr 2688
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4799:72:
4799 | if(ilm.lt.mnl)goto 17311 2688
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4800:72:
4800 | if(flmin.ge.1.0)goto 17311 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4801:72:
4801 | me=0 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4802:72:
4802 | 17670 do 17671 j=1,nin 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4803:72:
4803 | if(ca(j,ilm).ne.0.0) me=me+1 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4804:72:
4804 | 17671 continue 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4805:72:
4805 | 17672 continue 2689
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4806:72:
4806 | if(me.gt.ne)goto 17312 2690
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4807:72:
4807 | if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312 2691
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4808:72:
4808 | if(dev(ilm).gt.devmax)goto 17312 2692
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4809:72:
4809 | 17311 continue 2693
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4810:72:
4810 | 17312 continue 2693
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4811:72:
4811 | g=t+uu 2694
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4812:72:
4812 | 11790 continue 2694
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4813:72:
4813 | deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx) 2695
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4814:72:
4814 | return 2696
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4815:72:
4815 | end 2697
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4816:72:
4816 | subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr) 2698
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4817:72:
4817 | real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam) 2699
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4818:72:
4818 | integer ix(*),jx(*) 2700
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4820:72:
4820 | if(minval(y) .ge. 0.0)goto 17691 2703
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4821:72:
4821 | jerr=8888 2703
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4822:72:
4822 | return 2703
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4823:72:
4823 | 17691 continue 2704
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4824:72:
4824 | allocate(w(1:no),stat=jerr) 2705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4825:72:
4825 | allocate(f(1:no),stat=ierr) 2705
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4826:72:
4826 | jerr=jerr+ierr 2706
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4827:72:
4827 | if(jerr.ne.0) return 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4828:72:
4828 | w=max(0.0,q) 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4829:72:
4829 | sw=sum(w) 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4830:72:
4830 | if(sw .gt. 0.0)goto 17711 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4831:72:
4831 | jerr=9999 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4832:72:
4832 | go to 11790 2707
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4833:72:
4833 | 17711 continue 2708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4834:72:
4834 | yb=dot_product(w,y)/sw 2708
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4835:72:
4835 | fmax=log(huge(y(1))*0.1) 2709
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4836:72:
4836 | 17720 do 17721 lam=1,nlam 2709
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4837:72:
4837 | f=a0(lam) 2710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4838:72:
4838 | 17730 do 17731 j=1,ni 2710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4839:72:
4839 | if(a(j,lam).eq.0.0)goto 17731 2710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4840:72:
4840 | jb=ix(j) 2710
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4841:72:
4841 | je=ix(j+1)-1 2711
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4842:72:
4842 | f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je) 2712
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4843:72:
4843 | 17731 continue 2713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4844:72:
4844 | 17732 continue 2713
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4845:72:
4845 | f=f+g 2714
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4846:72:
4846 | s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f))) 2715
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4847:72:
4847 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2716
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4848:72:
4848 | 17721 continue 2717
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4849:72:
4849 | 17722 continue 2717
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4850:72:
4850 | 11790 continue 2717
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4851:72:
4851 | deallocate(w,f) 2718
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4852:72:
4852 | return 2719
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4853:72:
4853 | end 2720
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4854:72:
4854 | subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog, 2721
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4856:72:
4856 | real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam) 2722
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4857:72:
4857 | integer ix(*),jx(*),nin(nlam),ia(nx) 2723
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4859:72:
4859 | if(minval(y) .ge. 0.0)goto 17751 2726
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4860:72:
4860 | jerr=8888 2726
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4861:72:
4861 | return 2726
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4862:72:
4862 | 17751 continue 2727
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4863:72:
4863 | allocate(w(1:no),stat=jerr) 2728
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4864:72:
4864 | allocate(f(1:no),stat=ierr) 2728
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4865:72:
4865 | jerr=jerr+ierr 2729
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4866:72:
4866 | if(jerr.ne.0) return 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4867:72:
4867 | w=max(0.0,q) 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4868:72:
4868 | sw=sum(w) 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4869:72:
4869 | if(sw .gt. 0.0)goto 17771 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4870:72:
4870 | jerr=9999 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4871:72:
4871 | go to 11790 2730
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4872:72:
4872 | 17771 continue 2731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4873:72:
4873 | yb=dot_product(w,y)/sw 2731
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4874:72:
4874 | fmax=log(huge(y(1))*0.1) 2732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4875:72:
4875 | 17780 do 17781 lam=1,nlam 2732
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4876:72:
4876 | f=a0(lam) 2733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4877:72:
4877 | 17790 do 17791 k=1,nin(lam) 2733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4878:72:
4878 | j=ia(k) 2733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4879:72:
4879 | jb=ix(j) 2733
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4880:72:
4880 | je=ix(j+1)-1 2734
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4881:72:
4881 | f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je) 2735
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4882:72:
4882 | 17791 continue 2736
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4883:72:
4883 | 17792 continue 2736
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4884:72:
4884 | f=f+g 2737
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4885:72:
4885 | s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f))) 2738
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4886:72:
4886 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2739
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4887:72:
4887 | 17781 continue 2740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4888:72:
4888 | 17782 continue 2740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4889:72:
4889 | 11790 continue 2740
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4890:72:
4890 | deallocate(w,f) 2741
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4891:72:
4891 | return 2742
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4892:72:
4892 | end 2743
| 1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:5:
541 | 10031 continue 628
| 1
Warning: Label 10031 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:582:5:
582 | 10092 continue 659
| 1
Warning: Label 10092 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:579:5:
579 | 10090 do 10091 l=1,nk 658
| 1
Warning: Label 10090 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:585:5:
585 | 10082 continue 661
| 1
Warning: Label 10082 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:576:5:
576 | 10080 do 10081 k=1,lmu 657
| 1
Warning: Label 10080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1051:5:
1051 | 10870 do 10871 i=2,no 890
| 1
Warning: Label 10870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1058:5:
1058 | 10862 continue 892
| 1
Warning: Label 10862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1048:5:
1048 | 10860 do 10861 j=1,ni 889
| 1
Warning: Label 10860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:625:5:
625 | 10152 continue 682
| 1
Warning: Label 10152 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:622:5:
622 | 10150 do 10151 j=1,ni 681
| 1
Warning: Label 10150 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:613:5:
613 | 10142 continue 678
| 1
Warning: Label 10142 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:609:5:
609 | 10140 do 10141 j=1,ni 677
| 1
Warning: Label 10140 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:616:5:
616 | 10111 continue 680
| 1
Warning: Label 10111 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:604:5:
604 | 10102 continue 675
| 1
Warning: Label 10102 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:597:5:
597 | 10100 do 10101 j=1,ni 671
| 1
Warning: Label 10100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:787:5:
787 | 10462 continue 755
| 1
Warning: Label 10462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:784:5:
784 | 10460 do 10461 j=1,nin 755
| 1
Warning: Label 10460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:768:5:
768 | 10432 continue 749
| 1
Warning: Label 10432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:764:5:
764 | 10430 do 10431 j=1,ni 746
| 1
Warning: Label 10430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:753:5:
753 | 10402 continue 742
| 1
Warning: Label 10402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:750:5:
750 | 10400 do 10401 j=1,nin 741
| 1
Warning: Label 10400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:755:5:
755 | 10392 continue 743
| 1
Warning: Label 10392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:739:5:
739 | 10390 do 10391 l=1,nin 735
| 1
Warning: Label 10390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:735:5:
735 | 10380 continue 734
| 1
Warning: Label 10380 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:723:5:
723 | 10352 continue 730
| 1
Warning: Label 10352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:720:5:
720 | 10350 do 10351 j=1,ni 729
| 1
Warning: Label 10350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:713:5:
713 | 10302 continue 725
| 1
Warning: Label 10302 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:701:5:
701 | 10300 do 10301 j=1,ni 720
| 1
Warning: Label 10300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:690:5:
690 | 10270 do 10271 k=1,ni 715
| 1
Warning: Label 10270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:685:5:
685 | 10250 continue 714
| 1
Warning: Label 10250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:677:5:
677 | 10242 continue 711
| 1
Warning: Label 10242 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:672:5:
672 | 10240 do 10241 j=1,ni 708
| 1
Warning: Label 10240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:660:5:
660 | 10180 do 10181 m=1,nlam 704
| 1
Warning: Label 10180 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:831:5:
831 | 10502 continue 787
| 1
Warning: Label 10502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:828:5:
828 | 10500 do 10501 l=1,nk 786
| 1
Warning: Label 10500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:834:5:
834 | 10492 continue 789
| 1
Warning: Label 10492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:825:5:
825 | 10490 do 10491 k=1,lmu 785
| 1
Warning: Label 10490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:862:5:
862 | 10552 continue 805
| 1
Warning: Label 10552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:858:5:
858 | 10550 do 10551 j=1,ni 804
| 1
Warning: Label 10550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:865:5:
865 | 10521 continue 807
| 1
Warning: Label 10521 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:853:5:
853 | 10512 continue 803
| 1
Warning: Label 10512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:846:5:
846 | 10510 do 10511 j=1,ni 799
| 1
Warning: Label 10510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1036:5:
1036 | 10852 continue 881
| 1
Warning: Label 10852 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1033:5:
1033 | 10850 do 10851 j=1,nin 881
| 1
Warning: Label 10850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1010:5:
1010 | 10802 continue 873
| 1
Warning: Label 10802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:996:5:
996 | 10800 do 10801 l=1,nin 866
| 1
Warning: Label 10800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:992:5:
992 | 10790 continue 865
| 1
Warning: Label 10790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:982:5:
982 | 10742 continue 860
| 1
Warning: Label 10742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:973:5:
973 | 10740 do 10741 k=1,ni 856
| 1
Warning: Label 10740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:949:5:
949 | 10690 do 10691 k=1,ni 844
| 1
Warning: Label 10690 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:943:5:
943 | 10670 continue 842
| 1
Warning: Label 10670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:942:5:
942 | 10662 continue 842
| 1
Warning: Label 10662 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:937:5:
937 | 10660 do 10661 k=1,ni 839
| 1
Warning: Label 10660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:927:5:
927 | 10652 continue 835
| 1
Warning: Label 10652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:923:5:
923 | 10650 do 10651 j=1,ni 834
| 1
Warning: Label 10650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:910:5:
910 | 10590 do 10591 m=1,nlam 829
| 1
Warning: Label 10590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:909:5:
909 | 10582 continue 829
| 1
Warning: Label 10582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:905:5:
905 | 10580 do 10581 j=1,ni 828
| 1
Warning: Label 10580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1076:5:
1076 | 10882 continue 903
| 1
Warning: Label 10882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1073:5:
1073 | 10880 do 10881 i=1,n 902
| 1
Warning: Label 10880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1101:5:
1101 | 10911 continue 927
| 1
Warning: Label 10911 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1142:5:
1142 | 10972 continue 958
| 1
Warning: Label 10972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1139:5:
1139 | 10970 do 10971 l=1,nk 957
| 1
Warning: Label 10970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1145:5:
1145 | 10962 continue 960
| 1
Warning: Label 10962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1136:5:
1136 | 10960 do 10961 k=1,lmu 956
| 1
Warning: Label 10960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1622:5:
1622 | 11750 do 11751 i=jb+1,je 1189
| 1
Warning: Label 11750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1613:5:
1613 | 11730 do 11731 i=jb,je 1188
| 1
Warning: Label 11730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1629:5:
1629 | 11711 continue 1190
| 1
Warning: Label 11711 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1631:5:
1631 | 11702 continue 1191
| 1
Warning: Label 11702 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1606:5:
1606 | 11700 do 11701 j=1,ni 1186
| 1
Warning: Label 11700 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1181:5:
1181 | 11022 continue 976
| 1
Warning: Label 11022 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1175:5:
1175 | 11020 do 11021 j=1,ni 973
| 1
Warning: Label 11020 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1169:5:
1169 | 10991 continue 972
| 1
Warning: Label 10991 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1162:5:
1162 | 10982 continue 971
| 1
Warning: Label 10982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1154:5:
1154 | 10980 do 10981 j=1,ni 966
| 1
Warning: Label 10980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1342:5:
1342 | 11322 continue 1050
| 1
Warning: Label 11322 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1339:5:
1339 | 11320 do 11321 j=1,nin 1050
| 1
Warning: Label 11320 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1323:5:
1323 | 11292 continue 1044
| 1
Warning: Label 11292 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1319:5:
1319 | 11290 do 11291 j=1,ni 1041
| 1
Warning: Label 11290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1308:5:
1308 | 11262 continue 1037
| 1
Warning: Label 11262 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1305:5:
1305 | 11260 do 11261 j=1,nin 1036
| 1
Warning: Label 11260 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1310:5:
1310 | 11252 continue 1038
| 1
Warning: Label 11252 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1294:5:
1294 | 11250 do 11251 l=1,nin 1030
| 1
Warning: Label 11250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1290:5:
1290 | 11240 continue 1029
| 1
Warning: Label 11240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1278:5:
1278 | 11212 continue 1025
| 1
Warning: Label 11212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1275:5:
1275 | 11210 do 11211 j=1,ni 1024
| 1
Warning: Label 11210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1268:5:
1268 | 11162 continue 1020
| 1
Warning: Label 11162 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1256:5:
1256 | 11160 do 11161 j=1,ni 1014
| 1
Warning: Label 11160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1245:5:
1245 | 11130 do 11131 k=1,ni 1009
| 1
Warning: Label 11130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1240:5:
1240 | 11120 continue 1008
| 1
Warning: Label 11120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1232:5:
1232 | 11112 continue 1005
| 1
Warning: Label 11112 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1227:5:
1227 | 11110 do 11111 j=1,ni 1002
| 1
Warning: Label 11110 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1215:5:
1215 | 11050 do 11051 m=1,nlam 998
| 1
Warning: Label 11050 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1669:5:
1669 | 11810 continue 1213
| 1
Warning: Label 11810 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1662:5:
1662 | 11780 continue 1211
| 1
Warning: Label 11780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1660:5:
1660 | 11770 continue 1210
| 1
Warning: Label 11770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1386:5:
1386 | 11362 continue 1082
| 1
Warning: Label 11362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1383:5:
1383 | 11360 do 11361 l=1,nk 1081
| 1
Warning: Label 11360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1389:5:
1389 | 11352 continue 1084
| 1
Warning: Label 11352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1380:5:
1380 | 11350 do 11351 k=1,lmu 1080
| 1
Warning: Label 11350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1413:5:
1413 | 11381 continue 1096
| 1
Warning: Label 11381 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1406:5:
1406 | 11372 continue 1095
| 1
Warning: Label 11372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1398:5:
1398 | 11370 do 11371 j=1,ni 1090
| 1
Warning: Label 11370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1594:5:
1594 | 11692 continue 1178
| 1
Warning: Label 11692 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1591:5:
1591 | 11690 do 11691 j=1,nin 1178
| 1
Warning: Label 11690 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1568:5:
1568 | 11642 continue 1170
| 1
Warning: Label 11642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1551:5:
1551 | 11640 do 11641 l=1,nin 1161
| 1
Warning: Label 11640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1547:5:
1547 | 11630 continue 1160
| 1
Warning: Label 11630 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1537:5:
1537 | 11582 continue 1155
| 1
Warning: Label 11582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1526:5:
1526 | 11580 do 11581 j=1,ni 1150
| 1
Warning: Label 11580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1499:5:
1499 | 11530 do 11531 k=1,ni 1136
| 1
Warning: Label 11530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1493:5:
1493 | 11520 continue 1134
| 1
Warning: Label 11520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1492:5:
1492 | 11512 continue 1134
| 1
Warning: Label 11512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1487:5:
1487 | 11510 do 11511 k=1,ni 1131
| 1
Warning: Label 11510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1477:5:
1477 | 11502 continue 1127
| 1
Warning: Label 11502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1473:5:
1473 | 11500 do 11501 j=1,ni 1126
| 1
Warning: Label 11500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1460:5:
1460 | 11440 do 11441 m=1,nlam 1121
| 1
Warning: Label 11440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1459:5:
1459 | 11432 continue 1121
| 1
Warning: Label 11432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1453:5:
1453 | 11430 do 11431 j=1,ni 1117
| 1
Warning: Label 11430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1644:5:
1644 | 11762 continue 1199
| 1
Warning: Label 11762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1638:5:
1638 | 11760 do 11761 j=1,nin 1196
| 1
Warning: Label 11760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1746:5:
1746 | 11962 continue 1253
| 1
Warning: Label 11962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1743:5:
1743 | 11960 do 11961 l=1,nk 1253
| 1
Warning: Label 11960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1750:5:
1750 | 11932 continue 1256
| 1
Warning: Label 11932 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1741:5:
1741 | 11930 do 11931 ic=1,nc 1253
| 1
Warning: Label 11930 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1752:5:
1752 | 11922 continue 1257
| 1
Warning: Label 11922 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1739:5:
1739 | 11920 do 11921 k=1,lmu 1252
| 1
Warning: Label 11920 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1736:5:
1736 | 11891 continue 1251
| 1
Warning: Label 11891 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1724:5:
1724 | 11882 continue 1241
| 1
Warning: Label 11882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1720:5:
1720 | 11880 do 11881 i=1,no 1241
| 1
Warning: Label 11880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1769:5:
1769 | 11972 continue 1266
| 1
Warning: Label 11972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1760:5:
1760 | 11970 do 11971 j=1,ni 1262
| 1
Warning: Label 11970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2055:5:
2055 | 12642 continue 1387
| 1
Warning: Label 12642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2052:5:
2052 | 12640 do 12641 j=1,nin 1387
| 1
Warning: Label 12640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2030:5:
2030 | 12592 continue 1376
| 1
Warning: Label 12592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2021:5:
2021 | 12590 do 12591 k=1,ni 1372
| 1
Warning: Label 12590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2013:5:
2013 | 12560 do 12561 j=1,nin 1368
| 1
Warning: Label 12560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2006:5:
2006 | 12492 continue 1366
| 1
Warning: Label 12492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1992:5:
1992 | 12490 do 12491 i=1,no 1361
| 1
Warning: Label 12490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1969:5:
1969 | 12421 continue 1352
| 1
Warning: Label 12421 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1975:5:
1975 | 12412 continue 1355
| 1
Warning: Label 12412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1957:5:
1957 | 12410 do 12411 l=1,nin 1347
| 1
Warning: Label 12410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1953:5:
1953 | 12400 continue 1346
| 1
Warning: Label 12400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1928:5:
1928 | 12311 continue 1336
| 1
Warning: Label 12311 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1916:5:
1916 | 12300 do 12301 k=1,ni 1331
| 1
Warning: Label 12300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1912:5:
1912 | 12290 continue 1330
| 1
Warning: Label 12290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1910:5:
1910 | 12282 continue 1329
| 1
Warning: Label 12282 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1907:5:
1907 | 12280 do 12281 j=1,ni 1328
| 1
Warning: Label 12280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1902:5:
1902 | 12250 continue 1326
| 1
Warning: Label 12250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1900:5:
1900 | 12242 continue 1325
| 1
Warning: Label 12242 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1895:5:
1895 | 12240 do 12241 k=1,ni 1322
| 1
Warning: Label 12240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1887:5:
1887 | 12232 continue 1319
| 1
Warning: Label 12232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1883:5:
1883 | 12230 do 12231 j=1,ni 1318
| 1
Warning: Label 12230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1870:5:
1870 | 12170 do 12171 ilm=1,nlam 1313
| 1
Warning: Label 12170 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1869:5:
1869 | 12162 continue 1313
| 1
Warning: Label 12162 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1865:5:
1865 | 12160 do 12161 j=1,ni 1312
| 1
Warning: Label 12160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1852:5:
1852 | 12132 continue 1309
| 1
Warning: Label 12132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1848:5:
1848 | 12130 do 12131 i=1,no 1306
| 1
Warning: Label 12130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1843:5:
1843 | 12122 continue 1303
| 1
Warning: Label 12122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1840:5:
1840 | 12120 do 12121 j=1,ni 1303
| 1
Warning: Label 12120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1845:5:
1845 | 12091 continue 1304
| 1
Warning: Label 12091 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1834:5:
1834 | 12041 continue 1301
| 1
Warning: Label 12041 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4418:5:
4418 | 17032 continue 2498
| 1
Warning: Label 17032 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4412:5:
4412 | 17030 do 17031 i=1,n 2497
| 1
Warning: Label 17030 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2091:5:
2091 | 12660 continue 1414
| 1
Warning: Label 12660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2073:5:
2073 | 12652 continue 1400
| 1
Warning: Label 12652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2069:5:
2069 | 12650 do 12651 i=1,n 1397
| 1
Warning: Label 12650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2497:5:
2497 | 13542 continue 1596
| 1
Warning: Label 13542 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2494:5:
2494 | 13540 do 13541 i=1,no 1595
| 1
Warning: Label 13540 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2478:5:
2478 | 13532 continue 1588
| 1
Warning: Label 13532 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2474:5:
2474 | 13530 do 13531 i=1,no 1585
| 1
Warning: Label 13530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2480:5:
2480 | 13522 continue 1589
| 1
Warning: Label 13522 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2471:5:
2471 | 13520 do 13521 ic=1,nc 1584
| 1
Warning: Label 13520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2460:5:
2460 | 13472 continue 1578
| 1
Warning: Label 13472 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2452:5:
2452 | 13470 do 13471 k=1,ni 1575
| 1
Warning: Label 13470 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2449:5:
2449 | 13462 continue 1574
| 1
Warning: Label 13462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2444:5:
2444 | 13460 do 13461 k=1,ni 1571
| 1
Warning: Label 13460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2451:5:
2451 | 13452 continue 1575
| 1
Warning: Label 13452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2442:5:
2442 | 13450 do 13451 ic=1,nc 1570
| 1
Warning: Label 13450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2441:5:
2441 | 13442 continue 1570
| 1
Warning: Label 13442 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2436:5:
2436 | 13440 do 13441 k=1,ni 1569
| 1
Warning: Label 13440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2432:5:
2432 | 13412 continue 1567
| 1
Warning: Label 13412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2429:5:
2429 | 13410 do 13411 ic=1,nc 1566
| 1
Warning: Label 13410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2422:5:
2422 | 13381 continue 1564
| 1
Warning: Label 13381 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2426:5:
2426 | 13372 continue 1566
| 1
Warning: Label 13372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2414:5:
2414 | 13370 do 13371 j=1,nin 1561
| 1
Warning: Label 13370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2408:5:
2408 | 13362 continue 1559
| 1
Warning: Label 13362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2400:5:
2400 | 13360 do 13361 i=1,no 1552
| 1
Warning: Label 13360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2391:5:
2391 | 13330 do 13331 j=1,nin 1548
| 1
Warning: Label 13330 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2366:5:
2366 | 13241 continue 1535
| 1
Warning: Label 13241 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2372:5:
2372 | 13232 continue 1538
| 1
Warning: Label 13232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2354:5:
2354 | 13230 do 13231 l=1,nin 1530
| 1
Warning: Label 13230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2350:5:
2350 | 13220 continue 1529
| 1
Warning: Label 13220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2322:5:
2322 | 13111 continue 1517
| 1
Warning: Label 13111 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2310:5:
2310 | 13100 do 13101 k=1,ni 1512
| 1
Warning: Label 13100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2306:5:
2306 | 13090 continue 1511
| 1
Warning: Label 13090 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2304:5:
2304 | 13082 continue 1510
| 1
Warning: Label 13082 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2301:5:
2301 | 13080 do 13081 j=1,ni 1509
| 1
Warning: Label 13080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2297:5:
2297 | 13012 continue 1507
| 1
Warning: Label 13012 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2280:5:
2280 | 13010 do 13011 i=1,no 1501
| 1
Warning: Label 13010 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2276:5:
2276 | 13000 do 13001 ic=1,nc 1498
| 1
Warning: Label 13000 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2271:5:
2271 | 12990 continue 1497
| 1
Warning: Label 12990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2269:5:
2269 | 12982 continue 1496
| 1
Warning: Label 12982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2264:5:
2264 | 12980 do 12981 k=1,ni 1493
| 1
Warning: Label 12980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2256:5:
2256 | 12972 continue 1490
| 1
Warning: Label 12972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2252:5:
2252 | 12970 do 12971 j=1,ni 1489
| 1
Warning: Label 12970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2239:5:
2239 | 12910 do 12911 ilm=1,nlam 1484
| 1
Warning: Label 12910 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2236:5:
2236 | 12902 continue 1483
| 1
Warning: Label 12902 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2233:5:
2233 | 12900 do 12901 j=1,ni 1482
| 1
Warning: Label 12900 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2238:5:
2238 | 12892 continue 1484
| 1
Warning: Label 12892 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2231:5:
2231 | 12890 do 12891 ic=1,nc 1481
| 1
Warning: Label 12890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2215:5:
2215 | 12862 continue 1476
| 1
Warning: Label 12862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2212:5:
2212 | 12860 do 12861 j=1,ni 1476
| 1
Warning: Label 12860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2217:5:
2217 | 12831 continue 1477
| 1
Warning: Label 12831 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2203:5:
2203 | 12802 continue 1472
| 1
Warning: Label 12802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2200:5:
2200 | 12800 do 12801 i=1,no 1472
| 1
Warning: Label 12800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2205:5:
2205 | 12792 continue 1473
| 1
Warning: Label 12792 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2199:5:
2199 | 12790 do 12791 ic=1,nc 1472
| 1
Warning: Label 12790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2196:5:
2196 | 12782 continue 1471
| 1
Warning: Label 12782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2193:5:
2193 | 12780 do 12781 ic=1,nc 1470
| 1
Warning: Label 12780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2191:5:
2191 | 12772 continue 1470
| 1
Warning: Label 12772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2185:5:
2185 | 12770 do 12771 ic=1,nc 1466
| 1
Warning: Label 12770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2180:5:
2180 | 12762 continue 1463
| 1
Warning: Label 12762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2177:5:
2177 | 12760 do 12761 i=1,no 1463
| 1
Warning: Label 12760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2174:5:
2174 | 12742 continue 1462
| 1
Warning: Label 12742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2170:5:
2170 | 12740 do 12741 ic=1,nc 1461
| 1
Warning: Label 12740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2198:5:
2198 | 12721 continue 1472
| 1
Warning: Label 12721 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2164:5:
2164 | 12672 continue 1458
| 1
Warning: Label 12672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2150:5:
2150 | 12670 do 12671 ic=1,nc 1453
| 1
Warning: Label 12670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2537:5:
2537 | 13592 continue 1617
| 1
Warning: Label 13592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2532:5:
2532 | 13590 do 13591 i=1,n 1616
| 1
Warning: Label 13590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2527:5:
2527 | 13582 continue 1615
| 1
Warning: Label 13582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2522:5:
2522 | 13580 do 13581 i=1,n 1612
| 1
Warning: Label 13580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2539:5:
2539 | 13572 continue 1618
| 1
Warning: Label 13572 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2519:5:
2519 | 13570 do 13571 k=1,kk 1611
| 1
Warning: Label 13570 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2516:5:
2516 | 13560 continue 1610
| 1
Warning: Label 13560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2515:5:
2515 | 13552 continue 1610
| 1
Warning: Label 13552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2512:5:
2512 | 13550 do 13551 i=1,n 1609
| 1
Warning: Label 13550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2621:5:
2621 | 13772 continue 1645
| 1
Warning: Label 13772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2611:5:
2611 | 13770 do 13771 k=k1+1,k2 1641
| 1
Warning: Label 13770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2593:5:
2593 | 13720 do 13721 k=k1,k2-1 1636
| 1
Warning: Label 13720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2585:5:
2585 | 13710 continue 1634
| 1
Warning: Label 13710 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2579:5:
2579 | 13700 continue 1633
| 1
Warning: Label 13700 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2571:5:
2571 | 13651 continue 1631
| 1
Warning: Label 13651 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2559:5:
2559 | 13622 continue 1627
| 1
Warning: Label 13622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2556:5:
2556 | 13620 do 13621 i=1,n 1627
| 1
Warning: Label 13620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2637:5:
2637 | 13812 continue 1652
| 1
Warning: Label 13812 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2630:5:
2630 | 13810 do 13811 j=1,nin 1650
| 1
Warning: Label 13810 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2639:5:
2639 | 13802 continue 1653
| 1
Warning: Label 13802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2629:5:
2629 | 13800 do 13801 ic=1,nc 1650
| 1
Warning: Label 13800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2649:5:
2649 | 13822 continue 1659
| 1
Warning: Label 13822 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2646:5:
2646 | 13820 do 13821 ic=1,nc 1658
| 1
Warning: Label 13820 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2661:5:
2661 | 13842 continue 1666
| 1
Warning: Label 13842 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2656:5:
2656 | 13840 do 13841 ic=1,nc 1663
| 1
Warning: Label 13840 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2663:5:
2663 | 13832 continue 1667
| 1
Warning: Label 13832 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2655:5:
2655 | 13830 do 13831 i=1,nt 1663
| 1
Warning: Label 13830 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2724:5:
2724 | 13972 continue 1701
| 1
Warning: Label 13972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2721:5:
2721 | 13970 do 13971 l=1,nk 1701
| 1
Warning: Label 13970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2728:5:
2728 | 13942 continue 1704
| 1
Warning: Label 13942 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2719:5:
2719 | 13940 do 13941 ic=1,nc 1701
| 1
Warning: Label 13940 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2730:5:
2730 | 13932 continue 1705
| 1
Warning: Label 13932 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2717:5:
2717 | 13930 do 13931 k=1,lmu 1700
| 1
Warning: Label 13930 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2714:5:
2714 | 13901 continue 1699
| 1
Warning: Label 13901 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2700:5:
2700 | 13892 continue 1689
| 1
Warning: Label 13892 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2696:5:
2696 | 13890 do 13891 i=1,no 1689
| 1
Warning: Label 13890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2745:5:
2745 | 13982 continue 1714
| 1
Warning: Label 13982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2737:5:
2737 | 13980 do 13981 j=1,ni 1710
| 1
Warning: Label 13980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3090:5:
3090 | 14642 continue 1874
| 1
Warning: Label 14642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3087:5:
3087 | 14640 do 14641 j=1,nin 1874
| 1
Warning: Label 14640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3066:5:
3066 | 14592 continue 1863
| 1
Warning: Label 14592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3052:5:
3052 | 14590 do 14591 j=1,ni 1856
| 1
Warning: Label 14590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3044:5:
3044 | 14560 do 14561 j=1,nin 1852
| 1
Warning: Label 14560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3035:5:
3035 | 14492 continue 1849
| 1
Warning: Label 14492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3022:5:
3022 | 14490 do 14491 i=1,no 1845
| 1
Warning: Label 14490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3020:5:
3020 | 14482 continue 1844
| 1
Warning: Label 14482 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3013:5:
3013 | 14480 do 14481 j=1,nin 1840
| 1
Warning: Label 14480 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2985:5:
2985 | 14411 continue 1827
| 1
Warning: Label 14411 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2993:5:
2993 | 14402 continue 1832
| 1
Warning: Label 14402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2968:5:
2968 | 14400 do 14401 l=1,nin 1819
| 1
Warning: Label 14400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2964:5:
2964 | 14390 continue 1818
| 1
Warning: Label 14390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2934:5:
2934 | 14301 continue 1804
| 1
Warning: Label 14301 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2917:5:
2917 | 14290 do 14291 k=1,ni 1796
| 1
Warning: Label 14290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2913:5:
2913 | 14280 continue 1795
| 1
Warning: Label 14280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2912:5:
2912 | 14252 continue 1795
| 1
Warning: Label 14252 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2900:5:
2900 | 14250 do 14251 j=1,ni 1786
| 1
Warning: Label 14250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2896:5:
2896 | 14240 continue 1785
| 1
Warning: Label 14240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2894:5:
2894 | 14232 continue 1784
| 1
Warning: Label 14232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2889:5:
2889 | 14230 do 14231 k=1,ni 1781
| 1
Warning: Label 14230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2881:5:
2881 | 14222 continue 1778
| 1
Warning: Label 14222 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2877:5:
2877 | 14220 do 14221 j=1,ni 1777
| 1
Warning: Label 14220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2864:5:
2864 | 14160 do 14161 ilm=1,nlam 1772
| 1
Warning: Label 14160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2863:5:
2863 | 14152 continue 1772
| 1
Warning: Label 14152 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2854:5:
2854 | 14150 do 14151 j=1,ni 1766
| 1
Warning: Label 14150 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2837:5:
2837 | 14122 continue 1763
| 1
Warning: Label 14122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2833:5:
2833 | 14120 do 14121 i=1,no 1760
| 1
Warning: Label 14120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2827:5:
2827 | 14112 continue 1757
| 1
Warning: Label 14112 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2821:5:
2821 | 14110 do 14111 j=1,ni 1754
| 1
Warning: Label 14110 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2829:5:
2829 | 14081 continue 1758
| 1
Warning: Label 14081 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2815:5:
2815 | 14031 continue 1751
| 1
Warning: Label 14031 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3551:5:
3551 | 15522 continue 2093
| 1
Warning: Label 15522 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3548:5:
3548 | 15520 do 15521 i=1,no 2092
| 1
Warning: Label 15520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3532:5:
3532 | 15512 continue 2085
| 1
Warning: Label 15512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3528:5:
3528 | 15510 do 15511 i=1,no 2082
| 1
Warning: Label 15510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3534:5:
3534 | 15502 continue 2086
| 1
Warning: Label 15502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3525:5:
3525 | 15500 do 15501 ic=1,nc 2081
| 1
Warning: Label 15500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3514:5:
3514 | 15452 continue 2075
| 1
Warning: Label 15452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3506:5:
3506 | 15450 do 15451 k=1,ni 2072
| 1
Warning: Label 15450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3503:5:
3503 | 15442 continue 2071
| 1
Warning: Label 15442 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3493:5:
3493 | 15440 do 15441 j=1,ni 2065
| 1
Warning: Label 15440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3505:5:
3505 | 15432 continue 2072
| 1
Warning: Label 15432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3489:5:
3489 | 15430 do 15431 ic=1,nc 2064
| 1
Warning: Label 15430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3488:5:
3488 | 15422 continue 2064
| 1
Warning: Label 15422 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3483:5:
3483 | 15420 do 15421 j=1,ni 2063
| 1
Warning: Label 15420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3479:5:
3479 | 15392 continue 2061
| 1
Warning: Label 15392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3476:5:
3476 | 15390 do 15391 ic=1,nc 2060
| 1
Warning: Label 15390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3465:5:
3465 | 15361 continue 2055
| 1
Warning: Label 15361 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3472:5:
3472 | 15352 continue 2060
| 1
Warning: Label 15352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3457:5:
3457 | 15350 do 15351 j=1,nin 2052
| 1
Warning: Label 15350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3446:5:
3446 | 15342 continue 2046
| 1
Warning: Label 15342 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3439:5:
3439 | 15340 do 15341 j=1,nin 2042
| 1
Warning: Label 15340 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3428:5:
3428 | 15310 do 15311 j=1,nin 2037
| 1
Warning: Label 15310 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3400:5:
3400 | 15221 continue 2021
| 1
Warning: Label 15221 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3408:5:
3408 | 15212 continue 2027
| 1
Warning: Label 15212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3383:5:
3383 | 15210 do 15211 l=1,nin 2013
| 1
Warning: Label 15210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3379:5:
3379 | 15200 continue 2012
| 1
Warning: Label 15200 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3347:5:
3347 | 15091 continue 1995
| 1
Warning: Label 15091 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3330:5:
3330 | 15080 do 15081 k=1,ni 1987
| 1
Warning: Label 15080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3326:5:
3326 | 15070 continue 1986
| 1
Warning: Label 15070 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3325:5:
3325 | 15042 continue 1986
| 1
Warning: Label 15042 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3315:5:
3315 | 15040 do 15041 j=1,ni 1978
| 1
Warning: Label 15040 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3312:5:
3312 | 14992 continue 1977
| 1
Warning: Label 14992 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3294:5:
3294 | 14990 do 14991 i=1,no 1971
| 1
Warning: Label 14990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3288:5:
3288 | 14980 do 14981 ic=1,nc 1968
| 1
Warning: Label 14980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3283:5:
3283 | 14970 continue 1967
| 1
Warning: Label 14970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3281:5:
3281 | 14962 continue 1966
| 1
Warning: Label 14962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3276:5:
3276 | 14960 do 14961 k=1,ni 1963
| 1
Warning: Label 14960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3268:5:
3268 | 14952 continue 1960
| 1
Warning: Label 14952 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3264:5:
3264 | 14950 do 14951 j=1,ni 1959
| 1
Warning: Label 14950 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3251:5:
3251 | 14890 do 14891 ilm=1,nlam 1954
| 1
Warning: Label 14890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3248:5:
3248 | 14882 continue 1953
| 1
Warning: Label 14882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3239:5:
3239 | 14880 do 14881 j=1,ni 1947
| 1
Warning: Label 14880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3250:5:
3250 | 14872 continue 1954
| 1
Warning: Label 14872 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3235:5:
3235 | 14870 do 14871 ic=1,nc 1946
| 1
Warning: Label 14870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3217:5:
3217 | 14842 continue 1941
| 1
Warning: Label 14842 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3211:5:
3211 | 14840 do 14841 j=1,ni 1938
| 1
Warning: Label 14840 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3219:5:
3219 | 14811 continue 1942
| 1
Warning: Label 14811 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3202:5:
3202 | 14782 continue 1933
| 1
Warning: Label 14782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3199:5:
3199 | 14780 do 14781 i=1,no 1933
| 1
Warning: Label 14780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3204:5:
3204 | 14772 continue 1934
| 1
Warning: Label 14772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3198:5:
3198 | 14770 do 14771 ic=1,nc 1933
| 1
Warning: Label 14770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3195:5:
3195 | 14762 continue 1932
| 1
Warning: Label 14762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3192:5:
3192 | 14760 do 14761 ic=1,nc 1931
| 1
Warning: Label 14760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3190:5:
3190 | 14752 continue 1931
| 1
Warning: Label 14752 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3184:5:
3184 | 14750 do 14751 ic=1,nc 1927
| 1
Warning: Label 14750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3179:5:
3179 | 14742 continue 1924
| 1
Warning: Label 14742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3176:5:
3176 | 14740 do 14741 i=1,no 1924
| 1
Warning: Label 14740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3173:5:
3173 | 14722 continue 1923
| 1
Warning: Label 14722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3169:5:
3169 | 14720 do 14721 ic=1,nc 1922
| 1
Warning: Label 14720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3197:5:
3197 | 14701 continue 1933
| 1
Warning: Label 14701 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3163:5:
3163 | 14652 continue 1919
| 1
Warning: Label 14652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3149:5:
3149 | 14650 do 14651 ic=1,nc 1914
| 1
Warning: Label 14650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3569:5:
3569 | 15552 continue 2101
| 1
Warning: Label 15552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3566:5:
3566 | 15550 do 15551 ic=1,nc 2100
| 1
Warning: Label 15550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3571:5:
3571 | 15542 continue 2102
| 1
Warning: Label 15542 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3562:5:
3562 | 15540 do 15541 j=1,nin 2099
| 1
Warning: Label 15540 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3561:5:
3561 | 15532 continue 2099
| 1
Warning: Label 15532 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3558:5:
3558 | 15530 do 15531 ic=1,nc 2098
| 1
Warning: Label 15530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3620:5:
3620 | 15662 continue 2129
| 1
Warning: Label 15662 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3616:5:
3616 | 15660 do 15661 k=1,lmu 2129
| 1
Warning: Label 15660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3638:5:
3638 | 15672 continue 2139
| 1
Warning: Label 15672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3629:5:
3629 | 15670 do 15671 j=1,ni 2135
| 1
Warning: Label 15670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3880:5:
3880 | 16182 continue 2248
| 1
Warning: Label 16182 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3877:5:
3877 | 16180 do 16181 j=1,nin 2248
| 1
Warning: Label 16180 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3859:5:
3859 | 16132 continue 2239
| 1
Warning: Label 16132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3850:5:
3850 | 16130 do 16131 k=1,ni 2235
| 1
Warning: Label 16130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3842:5:
3842 | 16100 do 16101 j=1,nin 2232
| 1
Warning: Label 16100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3815:5:
3815 | 16011 continue 2220
| 1
Warning: Label 16011 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3824:5:
3824 | 16002 continue 2224
| 1
Warning: Label 16002 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3806:5:
3806 | 16000 do 16001 l=1,nin 2216
| 1
Warning: Label 16000 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3802:5:
3802 | 15990 continue 2215
| 1
Warning: Label 15990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3780:5:
3780 | 15901 continue 2206
| 1
Warning: Label 15901 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3771:5:
3771 | 15890 do 15891 j=1,ni 2202
| 1
Warning: Label 15890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3767:5:
3767 | 15880 continue 2201
| 1
Warning: Label 15880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3763:5:
3763 | 15870 continue 2199
| 1
Warning: Label 15870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3761:5:
3761 | 15862 continue 2198
| 1
Warning: Label 15862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3756:5:
3756 | 15860 do 15861 k=1,ni 2195
| 1
Warning: Label 15860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3748:5:
3748 | 15852 continue 2192
| 1
Warning: Label 15852 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3744:5:
3744 | 15850 do 15851 j=1,ni 2191
| 1
Warning: Label 15850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3731:5:
3731 | 15790 do 15791 ilm=1,nlam 2186
| 1
Warning: Label 15790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3730:5:
3730 | 15782 continue 2186
| 1
Warning: Label 15782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3726:5:
3726 | 15780 do 15781 j=1,ni 2185
| 1
Warning: Label 15780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3712:5:
3712 | 15732 continue 2181
| 1
Warning: Label 15732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3706:5:
3706 | 15730 do 15731 i=1,no 2180
| 1
Warning: Label 15730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3702:5:
3702 | 15701 continue 2178
| 1
Warning: Label 15701 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3945:5:
3945 | 16290 continue 2272
| 1
Warning: Label 16290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3943:5:
3943 | 16280 continue 2271
| 1
Warning: Label 16280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3937:5:
3937 | 16272 continue 2270
| 1
Warning: Label 16272 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3934:5:
3934 | 16270 do 16271 j=1,nj 2269
| 1
Warning: Label 16270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3922:5:
3922 | 16240 continue 2267
| 1
Warning: Label 16240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3916:5:
3916 | 16212 continue 2266
| 1
Warning: Label 16212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3911:5:
3911 | 16210 do 16211 j=1,no 2265
| 1
Warning: Label 16210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3908:5:
3908 | 16202 continue 2264
| 1
Warning: Label 16202 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3905:5:
3905 | 16200 do 16201 j=1,no 2264
| 1
Warning: Label 16200 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4018:5:
4018 | 16402 continue 2306
| 1
Warning: Label 16402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4015:5:
4015 | 16400 do 16401 k=2,nk 2305
| 1
Warning: Label 16400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4032:5:
4032 | 16422 continue 2314
| 1
Warning: Label 16422 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4029:5:
4029 | 16420 do 16421 j=j2,j1,-1 2313
| 1
Warning: Label 16420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4035:5:
4035 | 16412 continue 2316
| 1
Warning: Label 16412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4025:5:
4025 | 16410 do 16411 k=nk,1,-1 2311
| 1
Warning: Label 16410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3997:5:
3997 | 16362 continue 2294
| 1
Warning: Label 16362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3988:5:
3988 | 16360 do 16361 j=j1,j2 2290
| 1
Warning: Label 16360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3999:5:
3999 | 16352 continue 2295
| 1
Warning: Label 16352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3983:5:
3983 | 16350 do 16351 k=2,nk 2288
| 1
Warning: Label 16350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3982:5:
3982 | 16322 continue 2288
| 1
Warning: Label 16322 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3973:5:
3973 | 16320 do 16321 j=1,kp(1) 2284
| 1
Warning: Label 16320 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4008:5:
4008 | 16392 continue 2300
| 1
Warning: Label 16392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4005:5:
4005 | 16390 do 16391 j=1,ni 2299
| 1
Warning: Label 16390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3899:5:
3899 | 16192 continue 2260
| 1
Warning: Label 16192 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3896:5:
3896 | 16190 do 16191 i=1,n 2259
| 1
Warning: Label 16190 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4091:5:
4091 | 16472 continue 2352
| 1
Warning: Label 16472 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4087:5:
4087 | 16470 do 16471 i=1,no 2349
| 1
Warning: Label 16470 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4094:5:
4094 | 16462 continue 2354
| 1
Warning: Label 16462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4086:5:
4086 | 16460 do 16461 lam=1,nlam 2349
| 1
Warning: Label 16460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4085:5:
4085 | 16452 continue 2348
| 1
Warning: Label 16452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4082:5:
4082 | 16450 do 16451 j=1,ni 2347
| 1
Warning: Label 16450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4151:5:
4151 | 16582 continue 2388
| 1
Warning: Label 16582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4146:5:
4146 | 16580 do 16581 k=1,lmu 2384
| 1
Warning: Label 16580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4398:5:
4398 | 17022 continue 2487
| 1
Warning: Label 17022 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4395:5:
4395 | 17020 do 17021 j=1,nin 2487
| 1
Warning: Label 17020 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4375:5:
4375 | 16972 continue 2477
| 1
Warning: Label 16972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4366:5:
4366 | 16970 do 16971 k=1,ni 2473
| 1
Warning: Label 16970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4358:5:
4358 | 16940 do 16941 j=1,nin 2469
| 1
Warning: Label 16940 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4330:5:
4330 | 16871 continue 2459
| 1
Warning: Label 16871 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4337:5:
4337 | 16862 continue 2462
| 1
Warning: Label 16862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4319:5:
4319 | 16860 do 16861 l=1,nin 2455
| 1
Warning: Label 16860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4315:5:
4315 | 16850 continue 2454
| 1
Warning: Label 16850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4290:5:
4290 | 16781 continue 2445
| 1
Warning: Label 16781 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4279:5:
4279 | 16770 do 16771 k=1,ni 2441
| 1
Warning: Label 16770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4275:5:
4275 | 16760 continue 2440
| 1
Warning: Label 16760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4274:5:
4274 | 16752 continue 2440
| 1
Warning: Label 16752 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4271:5:
4271 | 16750 do 16751 j=1,ni 2439
| 1
Warning: Label 16750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4267:5:
4267 | 16740 continue 2437
| 1
Warning: Label 16740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4265:5:
4265 | 16732 continue 2436
| 1
Warning: Label 16732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4260:5:
4260 | 16730 do 16731 k=1,ni 2433
| 1
Warning: Label 16730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4252:5:
4252 | 16722 continue 2430
| 1
Warning: Label 16722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4248:5:
4248 | 16720 do 16721 j=1,ni 2429
| 1
Warning: Label 16720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4235:5:
4235 | 16660 do 16661 ilm=1,nlam 2424
| 1
Warning: Label 16660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4234:5:
4234 | 16652 continue 2424
| 1
Warning: Label 16652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4230:5:
4230 | 16650 do 16651 j=1,ni 2423
| 1
Warning: Label 16650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4215:5:
4215 | 16622 continue 2420
| 1
Warning: Label 16622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4212:5:
4212 | 16620 do 16621 i=1,no 2420
| 1
Warning: Label 16620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4206:5:
4206 | 16591 continue 2419
| 1
Warning: Label 16591 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4405:5:
4405 | 11790 continue 2492
| 1
Warning: Label 11790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4427:5:
4427 | 17062 continue 2503
| 1
Warning: Label 17062 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4424:5:
4424 | 17060 do 17061 lam=1,lmu 2502
| 1
Warning: Label 17060 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4436:5:
4436 | 17072 continue 2508
| 1
Warning: Label 17072 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4433:5:
4433 | 17070 do 17071 lam=1,lmu 2507
| 1
Warning: Label 17070 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4463:5:
4463 | 17132 continue 2524
| 1
Warning: Label 17132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4458:5:
4458 | 17130 do 17131 i=1,no 2520
| 1
Warning: Label 17130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4466:5:
4466 | 17122 continue 2526
| 1
Warning: Label 17122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4456:5:
4456 | 17120 do 17121 lam=1,nlam 2519
| 1
Warning: Label 17120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4521:5:
4521 | 17222 continue 2560
| 1
Warning: Label 17222 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4516:5:
4516 | 17220 do 17221 k=1,lmu 2556
| 1
Warning: Label 17220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4805:5:
4805 | 17672 continue 2689
| 1
Warning: Label 17672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4802:5:
4802 | 17670 do 17671 j=1,nin 2689
| 1
Warning: Label 17670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4782:5:
4782 | 17622 continue 2679
| 1
Warning: Label 17622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4769:5:
4769 | 17620 do 17621 j=1,ni 2672
| 1
Warning: Label 17620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4761:5:
4761 | 17590 do 17591 j=1,nin 2668
| 1
Warning: Label 17590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4729:5:
4729 | 17521 continue 2654
| 1
Warning: Label 17521 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4739:5:
4739 | 17512 continue 2659
| 1
Warning: Label 17512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4715:5:
4715 | 17510 do 17511 l=1,nin 2647
| 1
Warning: Label 17510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4711:5:
4711 | 17500 continue 2646
| 1
Warning: Label 17500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4684:5:
4684 | 17431 continue 2634
| 1
Warning: Label 17431 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4670:5:
4670 | 17420 do 17421 k=1,ni 2628
| 1
Warning: Label 17420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4666:5:
4666 | 17410 continue 2626
| 1
Warning: Label 17410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4665:5:
4665 | 17402 continue 2626
| 1
Warning: Label 17402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4657:5:
4657 | 17400 do 17401 j=1,ni 2621
| 1
Warning: Label 17400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4653:5:
4653 | 17390 continue 2619
| 1
Warning: Label 17390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4651:5:
4651 | 17382 continue 2618
| 1
Warning: Label 17382 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4646:5:
4646 | 17380 do 17381 k=1,ni 2615
| 1
Warning: Label 17380 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4638:5:
4638 | 17372 continue 2612
| 1
Warning: Label 17372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4634:5:
4634 | 17370 do 17371 j=1,ni 2611
| 1
Warning: Label 17370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4621:5:
4621 | 17310 do 17311 ilm=1,nlam 2606
| 1
Warning: Label 17310 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4620:5:
4620 | 17302 continue 2606
| 1
Warning: Label 17302 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4613:5:
4613 | 17300 do 17301 j=1,ni 2601
| 1
Warning: Label 17300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4598:5:
4598 | 17272 continue 2598
| 1
Warning: Label 17272 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4595:5:
4595 | 17270 do 17271 i=1,no 2598
| 1
Warning: Label 17270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4586:5:
4586 | 17262 continue 2595
| 1
Warning: Label 17262 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4580:5:
4580 | 17260 do 17261 j=1,ni 2592
| 1
Warning: Label 17260 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4588:5:
4588 | 17231 continue 2596
| 1
Warning: Label 17231 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4812:5:
4812 | 11790 continue 2694
| 1
Warning: Label 11790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4844:5:
4844 | 17732 continue 2713
| 1
Warning: Label 17732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4838:5:
4838 | 17730 do 17731 j=1,ni 2710
| 1
Warning: Label 17730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4849:5:
4849 | 17722 continue 2717
| 1
Warning: Label 17722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4836:5:
4836 | 17720 do 17721 lam=1,nlam 2709
| 1
Warning: Label 17720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4883:5:
4883 | 17792 continue 2736
| 1
Warning: Label 17792 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4877:5:
4877 | 17790 do 17791 k=1,nin(lam) 2733
| 1
Warning: Label 17790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4888:5:
4888 | 17782 continue 2740
| 1
Warning: Label 17782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4875:5:
4875 | 17780 do 17781 lam=1,nlam 2732
| 1
Warning: Label 17780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4527:25:
4527 | *min,ulam, shri,isd,maxit,xb,xs,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,j
| 1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4158:17:
4158 | *,shri, isd,maxit,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,jerr)
| 1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4038:25:
4038 | function risk(no,ni,nk,d,dk,f,e,kp,jp,u) 2319
| 1
Warning: Unused dummy argument ‘ni’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4041:24:
4041 | real e(no),u(nk),s 2321
| 1
Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable]
newGLMnet.f90:3642:19:
3642 | *m,cthri, isd,maxit,lmu,ao,m,kin,dev0,dev,alm,nlp,jerr)
| 1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1394:8:
1394 | *rr)
| 1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1150:9:
1150 | *err)
| 1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:3750:72:
3750 | al=alf*al0 2193
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3270:72:
3270 | al=alf*al0 1961
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2077:6:
2077 | function azero(n,y,g,q,jerr) 1404
| ^
Warning: ‘__result_azero’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2883:72:
2883 | al=alf*al0 1779
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2258:72:
2258 | al=alf*al0 1491
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1889:72:
1889 | al=alf*al0 1320
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1479:72:
1479 | alm=alf*alm0 1128
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1220:72:
1220 | alm=alm*alf 999
| ^
Warning: ‘alm’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1233:72:
1233 | alm=alf*alm/max(bta,1.0e-3) 1006
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:929:72:
929 | alm=alf*alm0 836
| ^
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gcc -shared -L/home/biocbuild/bbs-3.19-bioc/R/lib -L/usr/local/lib -o iClusterPlus.so iClusterBayes.o iClusterPlus.o newGLMnet.o -llapack -L/home/biocbuild/bbs-3.19-bioc/R/lib -lRblas -lgfortran -lm -lquadmath -lgfortran -lm -lquadmath -L/home/biocbuild/bbs-3.19-bioc/R/lib -lR
installing to /home/biocbuild/bbs-3.19-bioc/R/site-library/00LOCK-iClusterPlus/00new/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (iClusterPlus)