Back to Multiple platform build/check report for BioC 3.13 |
|
This page was generated on 2021-10-15 15:06:39 -0400 (Fri, 15 Oct 2021).
To the developers/maintainers of the iClusterPlus package: - Please 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 How and When does the builder pull? When will my changes propagate? here for more information. - Make sure to use the following settings in order to reproduce any error or warning you see on this page. |
Package 896/2041 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | ||||||||
iClusterPlus 1.28.0 (landing page) Qianxing Mo
| nebbiolo1 | Linux (Ubuntu 20.04.2 LTS) / x86_64 | OK | OK | WARNINGS | |||||||||
tokay2 | Windows Server 2012 R2 Standard / x64 | OK | OK | WARNINGS | OK | |||||||||
machv2 | macOS 10.14.6 Mojave / x86_64 | OK | OK | WARNINGS | OK | |||||||||
Package: iClusterPlus |
Version: 1.28.0 |
Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.28.0.tar.gz |
StartedAt: 2021-10-14 20:06:40 -0400 (Thu, 14 Oct 2021) |
EndedAt: 2021-10-14 20:08:55 -0400 (Thu, 14 Oct 2021) |
EllapsedTime: 135.0 seconds |
RetCode: 0 |
Status: WARNINGS |
CheckDir: iClusterPlus.Rcheck |
Warnings: 2 |
############################################################################## ############################################################################## ### ### Running command: ### ### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.28.0.tar.gz ### ############################################################################## ############################################################################## * using log directory ‘/Users/biocbuild/bbs-3.13-bioc/meat/iClusterPlus.Rcheck’ * using R version 4.1.1 (2021-08-10) * using platform: x86_64-apple-darwin17.0 (64-bit) * using session charset: UTF-8 * using option ‘--no-vignettes’ * checking for file ‘iClusterPlus/DESCRIPTION’ ... OK * this is package ‘iClusterPlus’ version ‘1.28.0’ * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for hidden files and directories ... NOTE Found the following hidden files and directories: .git_fetch_output.txt .git_merge_output.txt These were most likely included in error. See section ‘Package structure’ in the ‘Writing R Extensions’ manual. * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘iClusterPlus’ can be installed ... WARNING Found the following significant warnings: Warning: control reaches end of non-void function [-Wreturn-type] See ‘/Users/biocbuild/bbs-3.13-bioc/meat/iClusterPlus.Rcheck/00install.out’ for details. * checking installed package size ... NOTE installed size is 22.9Mb sub-directories of 1Mb or more: data 18.1Mb doc 4.2Mb * checking package directory ... OK * checking ‘build’ directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... NOTE Found a ‘configure.in’ file: ‘configure.ac’ has long been preferred. * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking whether the package can be unloaded cleanly ... OK * checking whether the namespace can be loaded with stated dependencies ... OK * checking whether the namespace can be unloaded cleanly ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... NOTE CNregions: no visible binding for global variable ‘chromosome’ CNregions: no visible binding for global variable ‘num.mark’ CNregions: no visible global function definition for ‘GRanges’ CNregions: no visible global function definition for ‘IRanges’ CNregions: no visible global function definition for ‘findOverlaps’ CNregions : get.medoid: no visible global function definition for ‘pam’ classError: no visible global function definition for ‘mapClass’ plotHMBayes: no visible global function definition for ‘bluered’ plotHMBayes : my.panel.levelplot: no visible global function definition for ‘panel.levelplot’ plotHMBayes : my.panel.levelplot: no visible global function definition for ‘panel.abline’ plotHMBayes : my.panel.levelplot.2: no visible global function definition for ‘panel.levelplot’ plotHMBayes : my.panel.levelplot.2: no visible global function definition for ‘panel.abline’ plotHMBayes: no visible global function definition for ‘levelplot’ plotHeatmap: no visible global function definition for ‘bluered’ plotHeatmap : my.panel.levelplot: no visible global function definition for ‘panel.levelplot’ plotHeatmap : my.panel.levelplot: no visible global function definition for ‘panel.abline’ plotHeatmap : my.panel.levelplot.2: no visible global function definition for ‘panel.levelplot’ plotHeatmap : my.panel.levelplot.2: no visible global function definition for ‘panel.abline’ plotHeatmap: no visible global function definition for ‘levelplot’ tune.iCluster2: no visible binding for global variable ‘glp’ tune.iClusterPlus: no visible binding for global variable ‘glp’ Undefined global functions or variables: GRanges IRanges bluered chromosome findOverlaps glp levelplot mapClass num.mark pam panel.abline panel.levelplot * checking Rd files ... OK * checking Rd metadata ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking contents of ‘data’ directory ... OK * checking data for non-ASCII characters ... OK * checking LazyData ... WARNING LazyData DB of 17.8 MB without LazyDataCompression set See §1.1.6 of 'Writing R Extensions' * checking data for ASCII and uncompressed saves ... OK * checking line endings in shell scripts ... OK * checking line endings in C/C++/Fortran sources/headers ... OK * checking line endings in Makefiles ... OK * checking compilation flags in Makevars ... OK * checking for GNU extensions in Makefiles ... OK * checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK * checking use of PKG_*FLAGS in Makefiles ... OK * checking compiled code ... NOTE Note: information on .o files is not available * checking sizes of PDF files under ‘inst/doc’ ... OK * checking installed files from ‘inst/doc’ ... OK * checking files in ‘vignettes’ ... OK * checking examples ... OK Examples with CPU (user + system) or elapsed time > 5s user system elapsed iCluster 5.119 0.196 5.328 * checking for unstated dependencies in ‘tests’ ... OK * checking tests ... Running ‘runTests.R’ OK * checking for unstated dependencies in vignettes ... OK * checking package vignettes in ‘inst/doc’ ... OK * checking running R code from vignettes ... SKIPPED * checking re-building of vignette outputs ... SKIPPED * checking PDF version of manual ... OK * DONE Status: 2 WARNINGs, 5 NOTEs See ‘/Users/biocbuild/bbs-3.13-bioc/meat/iClusterPlus.Rcheck/00check.log’ for details.
iClusterPlus.Rcheck/00install.out
############################################################################## ############################################################################## ### ### Running command: ### ### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus ### ############################################################################## ############################################################################## * installing to library ‘/Library/Frameworks/R.framework/Versions/4.1/Resources/library’ * installing *source* package ‘iClusterPlus’ ... ** using staged installation This package has only been tested with gfortran. So some checks are needed. R_HOME is /Library/Frameworks/R.framework/Resources 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 clang -mmacosx-version-min=10.13 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/usr/local/include -fPIC -Wall -g -O2 -c iClusterBayes.c -o iClusterBayes.o clang -mmacosx-version-min=10.13 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/usr/local/include -fPIC -Wall -g -O2 -c iClusterPlus.c -o iClusterPlus.o gfortran -mmacosx-version-min=10.13 -fno-optimize-sibling-calls -fdefault-real-8 -ffixed-form -fPIC -Wall -g -O2 -c newGLMnet.f90 -o newGLMnet.o newGLMnet.f90:519:72: 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: 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: real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam) 611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:523:72: integer jd(*),ia(nx),nin(nlam) 612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:525:72: if(maxval(vp) .gt. 0.0)goto 10021 615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:526:72: jerr=10000 615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:527:72: return 615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:528:72: 10021 continue 616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:529:72: allocate(vq(1:ni),stat=jerr) 616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:530:72: if(jerr.ne.0) return 617 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:531:72: vq=max(0.0,vp) 617 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:532:72: vq=vq*ni/sum(vq) 618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:533:72: if(ka .ne. 1)goto 10041 619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:534:72: 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: goto 10051 623 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:537:72: 10041 continue 624 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:538:72: 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: 10051 continue 628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:541:72: 10031 continue 628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:542:72: deallocate(vq) 629 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:543:72: return 630 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:544:72: end 631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:545:72: 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: 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: real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:549:72: integer jd(*),ia(nx),nin(nlam) 637 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:552:72: allocate(g(1:ni),stat=jerr) 642 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:553:72: allocate(xm(1:ni),stat=ierr) 642 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:554:72: jerr=jerr+ierr 643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:555:72: allocate(xs(1:ni),stat=ierr) 643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:556:72: jerr=jerr+ierr 644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:557:72: allocate(ju(1:ni),stat=ierr) 644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:558:72: jerr=jerr+ierr 645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:559:72: allocate(xv(1:ni),stat=ierr) 645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:560:72: jerr=jerr+ierr 646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:561:72: allocate(vlam(1:nlam),stat=ierr) 646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:562:72: jerr=jerr+ierr 647 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:563:72: if(jerr.ne.0) return 648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:564:72: call chkvars(no,ni,x,ju) 649 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:565:72: 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: if(maxval(ju) .gt. 0)goto 10071 650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:567:72: jerr=7777 650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:568:72: return 650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:569:72: 10071 continue 651 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:570:72: 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: if(jerr.ne.0) return 653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:572:72: if(flmin.ge.1.0) vlam=ulam/ys 654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:573:72: 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: if(jerr.gt.0) return 657 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:576:72: 10080 do 10081 k=1,lmu 657 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:577:72: alm(k)=ys*alm(k) 657 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:578:72: nk=nin(k) 658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:579:72: 10090 do 10091 l=1,nk 658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:580:72: ca(l,k)=ys*ca(l,k)/xs(ia(l)) 658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:581:72: 10091 continue 659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:582:72: 10092 continue 659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:583:72: 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: 10081 continue 661 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:585:72: 10082 continue 661 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:586:72: deallocate(xm,xs,g,ju,xv,vlam) 662 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:587:72: return 663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:588:72: end 664 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:589:72: 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: 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: integer ju(ni) 666 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:593:72: allocate(v(1:no),stat=jerr) 669 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:594:72: if(jerr.ne.0) return 670 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:595:72: w=w/sum(w) 670 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:596:72: v=sqrt(w) 671 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:597:72: 10100 do 10101 j=1,ni 671 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:598:72: if(ju(j).eq.0)goto 10101 672 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:599:72: xm(j)=dot_product(w,x(:,j)) 672 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:600:72: x(:,j)=v*(x(:,j)-xm(j)) 673 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:601:72: xv(j)=dot_product(x(:,j),x(:,j)) 673 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:602:72: if(isd.gt.0) xs(j)=sqrt(xv(j)) 674 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:603:72: 10101 continue 675 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:604:72: 10102 continue 675 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:605:72: if(isd .ne. 0)goto 10121 675 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:606:72: xs=1.0 675 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:607:72: goto 10131 676 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:608:72: 10121 continue 677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:609:72: 10140 do 10141 j=1,ni 677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:610:72: if(ju(j).eq.0)goto 10141 677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:611:72: x(:,j)=x(:,j)/xs(j) 677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:612:72: 10141 continue 678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:613:72: 10142 continue 678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:614:72: xv=1.0 679 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:615:72: 10131 continue 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:616:72: 10111 continue 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:617:72: ym=dot_product(w,y) 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:618:72: y=v*(y-ym) 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:619:72: ys=sqrt(dot_product(y,y)) 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:620:72: y=y/ys 680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:621:72: g=0.0 681 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:622:72: 10150 do 10151 j=1,ni 681 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:623:72: 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: 10151 continue 682 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:625:72: 10152 continue 682 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:626:72: deallocate(v) 683 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:627:72: return 684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:628:72: end 685 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:629:72: 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: 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: 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: integer ju(ni),ia(nx),kin(nlam) 690 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:640:72: allocate(a(1:ni),stat=ierr) 696 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:641:72: jerr=jerr+ierr 697 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:642:72: allocate(mm(1:ni),stat=ierr) 697 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:643:72: jerr=jerr+ierr 698 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:644:72: allocate(da(1:ni),stat=ierr) 698 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:645:72: jerr=jerr+ierr 699 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:646:72: if(jerr.ne.0) return 700 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:647:72: bta=beta 700 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:648:72: omb=1.0-bta 701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:649:72: if(flmin .ge. 1.0)goto 10171 701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:650:72: eqs=max(eps,flmin) 701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:651:72: alf=eqs**(1.0/(nlam-1)) 701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:652:72: 10171 continue 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:653:72: rsq=0.0 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:654:72: a=0.0 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:655:72: mm=0 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:656:72: nlp=0 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:657:72: nin=nlp 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:658:72: iz=0 702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:659:72: mnl=min(mnlam,nlam) 703 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:660:72: 10180 do 10181 m=1,nlam 704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:661:72: if(flmin .lt. 1.0)goto 10201 704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:662:72: alm=ulam(m) 704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:663:72: goto 10191 705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:664:72: 10201 if(m .le. 2)goto 10211 705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:665:72: alm=alm*alf 705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:666:72: goto 10191 706 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:667:72: 10211 if(m .ne. 1)goto 10221 706 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:668:72: alm=big 706 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:669:72: goto 10231 707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:670:72: 10221 continue 707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:671:72: alm=0.0 708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:672:72: 10240 do 10241 j=1,ni 708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:673:72: if(ju(j).eq.0)goto 10241 708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:674:72: if(vp(j).le.0.0)goto 10241 709 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:675:72: alm=max(alm,abs(g(j))/vp(j)) 710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:676:72: 10241 continue 711 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:677:72: 10242 continue 711 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:678:72: alm=alf*alm/max(bta,1.0e-3) 712 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:679:72: 10231 continue 713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:680:72: 10191 continue 713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:681:72: dem=alm*omb 713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:682:72: ab=alm*bta 713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:683:72: rsq0=rsq 713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:684:72: jz=1 714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:685:72: 10250 continue 714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:686:72: 10251 continue 714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:687:72: if(iz*jz.ne.0) go to 10260 714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:688:72: nlp=nlp+1 714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:689:72: dlx=0.0 715 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:690:72: 10270 do 10271 k=1,ni 715 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:691:72: if(ju(k).eq.0)goto 10271 716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:692:72: ak=a(k) 716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:693:72: u=g(k)+ak*xv(k) 716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:694:72: v=abs(u)-vp(k)*ab 716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:695:72: a(k)=0.0 717 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:696:72: 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: if(a(k).eq.ak)goto 10271 719 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:698:72: if(mm(k) .ne. 0)goto 10291 719 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:699:72: nin=nin+1 719 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:700:72: if(nin.gt.nx)goto 10272 720 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:701:72: 10300 do 10301 j=1,ni 720 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:702:72: if(ju(j).eq.0)goto 10301 721 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:703:72: if(mm(j) .eq. 0)goto 10321 721 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:704:72: c(j,nin)=c(k,mm(j)) 721 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:705:72: goto 10301 721 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:706:72: 10321 continue 722 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:707:72: if(j .ne. k)goto 10341 722 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:708:72: c(j,nin)=xv(j) 722 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:709:72: goto 10301 722 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:710:72: 10341 continue 723 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:711:72: c(j,nin)=dot_product(x(:,j),x(:,k)) 724 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:712:72: 10301 continue 725 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:713:72: 10302 continue 725 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:714:72: mm(k)=nin 725 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:715:72: ia(nin)=k 726 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:716:72: 10291 continue 727 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:717:72: del=a(k)-ak 727 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:718:72: rsq=rsq+del*(2.0*g(k)-del*xv(k)) 728 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:719:72: dlx=max(xv(k)*del**2,dlx) 729 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:720:72: 10350 do 10351 j=1,ni 729 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:721:72: 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: 10351 continue 730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:723:72: 10352 continue 730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:724:72: 10271 continue 731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:725:72: 10272 continue 731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:726:72: if(dlx.lt.thr)goto 10252 731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:727:72: if(nin.gt.nx)goto 10252 732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:728:72: if(nlp .le. maxit)goto 10371 732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:729:72: jerr=-m 732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:730:72: return 732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:731:72: 10371 continue 733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:732:72: 10260 continue 733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:733:72: iz=1 733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:734:72: da(1:nin)=a(ia(1:nin)) 734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:735:72: 10380 continue 734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:736:72: 10381 continue 734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:737:72: nlp=nlp+1 734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:738:72: dlx=0.0 735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:739:72: 10390 do 10391 l=1,nin 735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:740:72: k=ia(l) 735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:741:72: ak=a(k) 735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:742:72: u=g(k)+ak*xv(k) 735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:743:72: v=abs(u)-vp(k)*ab 736 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:744:72: a(k)=0.0 737 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:745:72: 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: if(a(k).eq.ak)goto 10391 739 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:747:72: del=a(k)-ak 739 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:748:72: rsq=rsq+del*(2.0*g(k)-del*xv(k)) 740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:749:72: dlx=max(xv(k)*del**2,dlx) 741 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:750:72: 10400 do 10401 j=1,nin 741 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:751:72: 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: 10401 continue 742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:753:72: 10402 continue 742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:754:72: 10391 continue 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:755:72: 10392 continue 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:756:72: if(dlx.lt.thr)goto 10382 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:757:72: if(nlp .le. maxit)goto 10421 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:758:72: jerr=-m 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:759:72: return 743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:760:72: 10421 continue 744 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:761:72: goto 10381 745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:762:72: 10382 continue 745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:763:72: da(1:nin)=a(ia(1:nin))-da(1:nin) 746 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:764:72: 10430 do 10431 j=1,ni 746 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:765:72: if(mm(j).ne.0)goto 10431 747 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:766:72: 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: 10431 continue 749 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:768:72: 10432 continue 749 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:769:72: jz=0 750 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:770:72: goto 10251 751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:771:72: 10252 continue 751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:772:72: if(nin .le. nx)goto 10451 751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:773:72: jerr=-10000-m 751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:774:72: goto 10182 751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:775:72: 10451 continue 752 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:776:72: 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: kin(m)=nin 753 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:778:72: rsqo(m)=rsq 753 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:779:72: almo(m)=alm 753 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:780:72: lmu=m 754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:781:72: if(m.lt.mnl)goto 10181 754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:782:72: if(flmin.ge.1.0)goto 10181 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:783:72: me=0 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:784:72: 10460 do 10461 j=1,nin 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:785:72: if(ao(j,m).ne.0.0) me=me+1 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:786:72: 10461 continue 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:787:72: 10462 continue 755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:788:72: if(me.gt.ne)goto 10182 756 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:789:72: if(rsq-rsq0.lt.sml*rsq)goto 10182 756 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:790:72: if(rsq.gt.rsqmax)goto 10182 757 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:791:72: 10181 continue 758 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:792:72: 10182 continue 758 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:793:72: deallocate(a,mm,c,da) 759 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:794:72: return 760 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:795:72: end 761 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:796:72: 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: 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: real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 765 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:800:72: integer jd(*),ia(nx),nin(nlam) 766 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:803:72: allocate(xm(1:ni),stat=jerr) 771 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:804:72: allocate(xs(1:ni),stat=ierr) 771 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:805:72: jerr=jerr+ierr 772 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:806:72: allocate(ju(1:ni),stat=ierr) 772 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:807:72: jerr=jerr+ierr 773 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:808:72: allocate(xv(1:ni),stat=ierr) 773 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:809:72: jerr=jerr+ierr 774 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:810:72: allocate(vlam(1:nlam),stat=ierr) 774 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:811:72: jerr=jerr+ierr 775 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:812:72: if(jerr.ne.0) return 776 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:813:72: call chkvars(no,ni,x,ju) 777 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:814:72: 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: if(maxval(ju) .gt. 0)goto 10481 778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:816:72: jerr=7777 778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:817:72: return 778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:818:72: 10481 continue 779 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:819:72: 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: if(jerr.ne.0) return 781 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:821:72: if(flmin.ge.1.0) vlam=ulam/ys 782 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:822:72: 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: if(jerr.gt.0) return 785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:825:72: 10490 do 10491 k=1,lmu 785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:826:72: alm(k)=ys*alm(k) 785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:827:72: nk=nin(k) 786 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:828:72: 10500 do 10501 l=1,nk 786 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:829:72: ca(l,k)=ys*ca(l,k)/xs(ia(l)) 786 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:830:72: 10501 continue 787 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:831:72: 10502 continue 787 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:832:72: 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: 10491 continue 789 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:834:72: 10492 continue 789 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:835:72: deallocate(xm,xs,ju,xv,vlam) 790 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:836:72: return 791 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:837:72: end 792 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:838:72: 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: 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: integer ju(ni) 794 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:842:72: allocate(v(1:no),stat=jerr) 797 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:843:72: if(jerr.ne.0) return 798 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:844:72: w=w/sum(w) 798 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:845:72: v=sqrt(w) 799 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:846:72: 10510 do 10511 j=1,ni 799 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:847:72: if(ju(j).eq.0)goto 10511 800 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:848:72: xm(j)=dot_product(w,x(:,j)) 800 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:849:72: x(:,j)=v*(x(:,j)-xm(j)) 801 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:850:72: xv(j)=dot_product(x(:,j),x(:,j)) 801 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:851:72: if(isd.gt.0) xs(j)=sqrt(xv(j)) 802 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:852:72: 10511 continue 803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:853:72: 10512 continue 803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:854:72: if(isd .ne. 0)goto 10531 803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:855:72: xs=1.0 803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:856:72: goto 10541 804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:857:72: 10531 continue 804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:858:72: 10550 do 10551 j=1,ni 804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:859:72: if(ju(j).eq.0)goto 10551 804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:860:72: x(:,j)=x(:,j)/xs(j) 804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:861:72: 10551 continue 805 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:862:72: 10552 continue 805 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:863:72: xv=1.0 806 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:864:72: 10541 continue 807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:865:72: 10521 continue 807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:866:72: ym=dot_product(w,y) 807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:867:72: y=v*(y-ym) 807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:868:72: ys=sqrt(dot_product(y,y)) 807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:869:72: y=y/ys 808 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:870:72: deallocate(v) 809 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:871:72: return 810 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:872:72: end 811 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:873:72: 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: 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: 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: integer ju(ni),ia(nx),kin(nlam) 816 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:882:72: allocate(a(1:ni),stat=jerr) 821 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:883:72: allocate(mm(1:ni),stat=ierr) 821 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:884:72: jerr=jerr+ierr 822 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:885:72: allocate(g(1:ni),stat=ierr) 822 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:886:72: jerr=jerr+ierr 823 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:887:72: allocate(ix(1:ni),stat=ierr) 823 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:888:72: jerr=jerr+ierr 824 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:889:72: if(jerr.ne.0) return 825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:890:72: bta=beta 825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:891:72: omb=1.0-bta 825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:892:72: ix=0 826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:893:72: if(flmin .ge. 1.0)goto 10571 826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:894:72: eqs=max(eps,flmin) 826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:895:72: alf=eqs**(1.0/(nlam-1)) 826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:896:72: 10571 continue 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:897:72: rsq=0.0 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:898:72: a=0.0 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:899:72: mm=0 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:900:72: nlp=0 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:901:72: nin=nlp 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:902:72: iz=0 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:903:72: mnl=min(mnlam,nlam) 827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:904:72: alm=0.0 828 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:905:72: 10580 do 10581 j=1,ni 828 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:906:72: if(ju(j).eq.0)goto 10581 828 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:907:72: g(j)=abs(dot_product(y,x(:,j))) 828 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:908:72: 10581 continue 829 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:909:72: 10582 continue 829 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:910:72: 10590 do 10591 m=1,nlam 829 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:911:72: alm0=alm 830 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:912:72: if(flmin .lt. 1.0)goto 10611 830 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:913:72: alm=ulam(m) 830 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:914:72: goto 10601 831 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:915:72: 10611 if(m .le. 2)goto 10621 831 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:916:72: alm=alm*alf 831 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:917:72: goto 10601 832 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:918:72: 10621 if(m .ne. 1)goto 10631 832 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:919:72: alm=big 832 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:920:72: goto 10641 833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:921:72: 10631 continue 833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:922:72: alm0=0.0 834 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:923:72: 10650 do 10651 j=1,ni 834 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:924:72: if(ju(j).eq.0)goto 10651 834 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:925:72: 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: 10651 continue 835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:927:72: 10652 continue 835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:928:72: alm0=alm0/max(bta,1.0e-3) 835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:929:72: alm=alf*alm0 836 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:930:72: 10641 continue 837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:931:72: 10601 continue 837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:932:72: dem=alm*omb 837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:933:72: ab=alm*bta 837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:934:72: rsq0=rsq 837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:935:72: jz=1 838 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:936:72: tlam=bta*(2.0*alm-alm0) 839 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:937:72: 10660 do 10661 k=1,ni 839 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:938:72: if(ix(k).eq.1)goto 10661 839 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:939:72: if(ju(k).eq.0)goto 10661 840 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:940:72: if(g(k).gt.tlam*vp(k)) ix(k)=1 841 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:941:72: 10661 continue 842 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:942:72: 10662 continue 842 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:943:72: 10670 continue 842 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:944:72: 10671 continue 842 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:945:72: if(iz*jz.ne.0) go to 10260 843 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:946:72: 10680 continue 843 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:947:72: nlp=nlp+1 843 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:948:72: dlx=0.0 844 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:949:72: 10690 do 10691 k=1,ni 844 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:950:72: if(ix(k).eq.0)goto 10691 844 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:951:72: gk=dot_product(y,x(:,k)) 845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:952:72: ak=a(k) 845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:953:72: u=gk+ak*xv(k) 845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:954:72: v=abs(u)-vp(k)*ab 845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:955:72: a(k)=0.0 846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:956:72: 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: if(a(k).eq.ak)goto 10691 848 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:958:72: if(mm(k) .ne. 0)goto 10711 848 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:959:72: nin=nin+1 848 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:960:72: if(nin.gt.nx)goto 10692 849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:961:72: mm(k)=nin 849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:962:72: ia(nin)=k 850 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:963:72: 10711 continue 851 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:964:72: del=a(k)-ak 851 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:965:72: rsq=rsq+del*(2.0*gk-del*xv(k)) 852 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:966:72: y=y-del*x(:,k) 852 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:967:72: dlx=max(xv(k)*del**2,dlx) 853 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:968:72: 10691 continue 854 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:969:72: 10692 continue 854 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:970:72: if(nin.gt.nx)goto 10672 855 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:971:72: if(dlx .ge. thr)goto 10731 855 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:972:72: ixx=0 856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:973:72: 10740 do 10741 k=1,ni 856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:974:72: if(ix(k).eq.1)goto 10741 856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:975:72: if(ju(k).eq.0)goto 10741 857 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:976:72: g(k)=abs(dot_product(y,x(:,k))) 858 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:977:72: if(g(k) .le. ab*vp(k))goto 10761 858 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:978:72: ix(k)=1 858 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:979:72: ixx=1 858 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:980:72: 10761 continue 859 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:981:72: 10741 continue 860 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:982:72: 10742 continue 860 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:983:72: if(ixx.eq.1) go to 10680 861 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:984:72: goto 10672 862 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:985:72: 10731 continue 863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:986:72: if(nlp .le. maxit)goto 10781 863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:987:72: jerr=-m 863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:988:72: return 863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:989:72: 10781 continue 864 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:990:72: 10260 continue 864 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:991:72: iz=1 865 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:992:72: 10790 continue 865 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:993:72: 10791 continue 865 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:994:72: nlp=nlp+1 865 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:995:72: dlx=0.0 866 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:996:72: 10800 do 10801 l=1,nin 866 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:997:72: k=ia(l) 866 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:998:72: gk=dot_product(y,x(:,k)) 867 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:999:72: ak=a(k) 867 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1000:72: u=gk+ak*xv(k) 867 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1001:72: v=abs(u)-vp(k)*ab 867 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1002:72: a(k)=0.0 868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1003:72: 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: if(a(k).eq.ak)goto 10801 870 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1005:72: del=a(k)-ak 870 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1006:72: rsq=rsq+del*(2.0*gk-del*xv(k)) 871 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1007:72: y=y-del*x(:,k) 871 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1008:72: dlx=max(xv(k)*del**2,dlx) 872 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1009:72: 10801 continue 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1010:72: 10802 continue 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1011:72: if(dlx.lt.thr)goto 10792 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1012:72: if(nlp .le. maxit)goto 10821 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1013:72: jerr=-m 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1014:72: return 873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1015:72: 10821 continue 874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1016:72: goto 10791 875 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1017:72: 10792 continue 875 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1018:72: jz=0 876 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1019:72: goto 10671 877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1020:72: 10672 continue 877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1021:72: if(nin .le. nx)goto 10841 877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1022:72: jerr=-10000-m 877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1023:72: goto 10592 877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1024:72: 10841 continue 878 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1025:72: 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: kin(m)=nin 879 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1027:72: rsqo(m)=rsq 879 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1028:72: almo(m)=alm 879 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1029:72: lmu=m 880 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1030:72: if(m.lt.mnl)goto 10591 880 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1031:72: if(flmin.ge.1.0)goto 10591 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1032:72: me=0 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1033:72: 10850 do 10851 j=1,nin 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1034:72: if(ao(j,m).ne.0.0) me=me+1 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1035:72: 10851 continue 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1036:72: 10852 continue 881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1037:72: if(me.gt.ne)goto 10592 882 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1038:72: if(rsq-rsq0.lt.sml*rsq)goto 10592 882 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1039:72: if(rsq.gt.rsqmax)goto 10592 883 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1040:72: 10591 continue 884 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1041:72: 10592 continue 884 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1042:72: deallocate(a,mm,g,ix) 885 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1043:72: return 886 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1044:72: end 887 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1045:72: subroutine chkvars(no,ni,x,ju) 888 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1046:72: real x(no,ni) 888 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1047:72: integer ju(ni) 889 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1048:72: 10860 do 10861 j=1,ni 889 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1049:72: ju(j)=0 889 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1050:72: t=x(1,j) 890 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1051:72: 10870 do 10871 i=2,no 890 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1052:72: if(x(i,j).eq.t)goto 10871 890 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1053:72: ju(j)=1 890 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1054:72: goto 10872 890 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1055:72: 10871 continue 891 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1056:72: 10872 continue 891 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1057:72: 10861 continue 892 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1058:72: 10862 continue 892 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1059:72: return 893 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1060:72: end 894 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1061:72: subroutine uncomp(ni,ca,ia,nin,a) 895 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1062:72: real ca(*),a(ni) 895 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1063:72: integer ia(*) 896 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1064:72: a=0.0 896 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1065:72: if(nin.gt.0) a(ia(1:nin))=ca(1:nin) 897 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1066:72: return 898 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1067:72: end 899 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1068:72: subroutine modval(a0,ca,ia,nin,n,x,f) 900 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1069:72: real ca(nin),x(n,*),f(n) 900 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1070:72: integer ia(nin) 901 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1071:72: f=a0 901 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1072:72: if(nin.le.0) return 902 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1073:72: 10880 do 10881 i=1,n 902 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1074:72: 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: 10881 continue 903 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1076:72: 10882 continue 903 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1077:72: return 904 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1078:72: end 905 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1079:72: 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: real x(*),y(no),w(no),vp(ni),ulam(nlam) 909 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1082:72: real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 910 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1083:72: integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 911 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1085:72: if(maxval(vp) .gt. 0.0)goto 10901 914 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1086:72: jerr=10000 914 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1087:72: return 914 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1088:72: 10901 continue 915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1089:72: allocate(vq(1:ni),stat=jerr) 915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1090:72: if(jerr.ne.0) return 916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1091:72: vq=max(0.0,vp) 916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1092:72: vq=vq*ni/sum(vq) 917 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1093:72: if(ka .ne. 1)goto 10921 918 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1094:72: 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: goto 10931 922 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1097:72: 10921 continue 923 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1098:72: 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: 10931 continue 927 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1101:72: 10911 continue 927 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1102:72: deallocate(vq) 928 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1103:72: return 929 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1104:72: end 930 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1105:72: 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: real x(*),y(no),w(no),vp(ni),ulam(nlam) 934 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1108:72: real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 935 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1109:72: integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 936 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1112:72: allocate(g(1:ni),stat=jerr) 941 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1113:72: allocate(xm(1:ni),stat=ierr) 941 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1114:72: jerr=jerr+ierr 942 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1115:72: allocate(xs(1:ni),stat=ierr) 942 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1116:72: jerr=jerr+ierr 943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1117:72: allocate(ju(1:ni),stat=ierr) 943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1118:72: jerr=jerr+ierr 944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1119:72: allocate(xv(1:ni),stat=ierr) 944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1120:72: jerr=jerr+ierr 945 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1121:72: allocate(vlam(1:nlam),stat=ierr) 945 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1122:72: jerr=jerr+ierr 946 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1123:72: if(jerr.ne.0) return 947 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1124:72: call spchkvars(no,ni,x,ix,ju) 948 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1125:72: 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: if(maxval(ju) .gt. 0)goto 10951 949 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1127:72: jerr=7777 949 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1128:72: return 949 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1129:72: 10951 continue 950 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1130:72: 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: if(jerr.ne.0) return 952 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1132:72: if(flmin.ge.1.0) vlam=ulam/ys 953 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1133:72: 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: if(jerr.gt.0) return 956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1136:72: 10960 do 10961 k=1,lmu 956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1137:72: alm(k)=ys*alm(k) 956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1138:72: nk=nin(k) 957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1139:72: 10970 do 10971 l=1,nk 957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1140:72: ca(l,k)=ys*ca(l,k)/xs(ia(l)) 957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1141:72: 10971 continue 958 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1142:72: 10972 continue 958 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1143:72: 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: 10961 continue 960 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1145:72: 10962 continue 960 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1146:72: deallocate(xm,xs,g,ju,xv,vlam) 961 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1147:72: return 962 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1148:72: end 963 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1149:72: 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: 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: integer ix(*),jx(*),ju(ni) 965 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1153:72: w=w/sum(w) 966 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1154:72: 10980 do 10981 j=1,ni 966 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1155:72: if(ju(j).eq.0)goto 10981 967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1156:72: jb=ix(j) 967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1157:72: je=ix(j+1)-1 967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1158:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 968 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1159:72: 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: if(isd.gt.0) xs(j)=sqrt(xv(j)) 970 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1161:72: 10981 continue 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1162:72: 10982 continue 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1163:72: if(isd .ne. 0)goto 11001 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1164:72: xs=1.0 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1165:72: goto 11011 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1166:72: 11001 continue 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1167:72: xv=1.0 971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1168:72: 11011 continue 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1169:72: 10991 continue 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1170:72: ym=dot_product(w,y) 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1171:72: y=y-ym 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1172:72: ys=sqrt(dot_product(w,y**2)) 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1173:72: y=y/ys 972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1174:72: g=0.0 973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1175:72: 11020 do 11021 j=1,ni 973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1176:72: if(ju(j).eq.0)goto 11021 973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1177:72: jb=ix(j) 973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1178:72: je=ix(j+1)-1 974 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1179:72: 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: 11021 continue 976 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1181:72: 11022 continue 976 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1182:72: return 977 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1183:72: end 978 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1184:72: 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: 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: real g(ni),vp(ni),x(*),ulam(nlam),w(no) 982 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1189:72: 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: integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 984 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1195:72: allocate(a(1:ni),stat=ierr) 990 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1196:72: jerr=jerr+ierr 991 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1197:72: allocate(mm(1:ni),stat=ierr) 991 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1198:72: jerr=jerr+ierr 992 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1199:72: allocate(da(1:ni),stat=ierr) 992 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1200:72: jerr=jerr+ierr 993 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1201:72: if(jerr.ne.0) return 994 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1202:72: bta=beta 994 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1203:72: omb=1.0-bta 995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1204:72: if(flmin .ge. 1.0)goto 11041 995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1205:72: eqs=max(eps,flmin) 995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1206:72: alf=eqs**(1.0/(nlam-1)) 995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1207:72: 11041 continue 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1208:72: rsq=0.0 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1209:72: a=0.0 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1210:72: mm=0 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1211:72: nlp=0 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1212:72: nin=nlp 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1213:72: iz=0 996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1214:72: mnl=min(mnlam,nlam) 997 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1215:72: 11050 do 11051 m=1,nlam 998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1216:72: if(flmin .lt. 1.0)goto 11071 998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1217:72: alm=ulam(m) 998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1218:72: goto 11061 999 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1219:72: 11071 if(m .le. 2)goto 11081 999 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1220:72: alm=alm*alf 999 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1221:72: goto 11061 1000 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1222:72: 11081 if(m .ne. 1)goto 11091 1000 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1223:72: alm=big 1000 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1224:72: goto 11101 1001 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1225:72: 11091 continue 1001 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1226:72: alm=0.0 1002 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1227:72: 11110 do 11111 j=1,ni 1002 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1228:72: if(ju(j).eq.0)goto 11111 1002 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1229:72: if(vp(j).le.0.0)goto 11111 1003 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1230:72: alm=max(alm,abs(g(j))/vp(j)) 1004 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1231:72: 11111 continue 1005 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1232:72: 11112 continue 1005 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1233:72: alm=alf*alm/max(bta,1.0e-3) 1006 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1234:72: 11101 continue 1007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1235:72: 11061 continue 1007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1236:72: dem=alm*omb 1007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1237:72: ab=alm*bta 1007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1238:72: rsq0=rsq 1007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1239:72: jz=1 1008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1240:72: 11120 continue 1008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1241:72: 11121 continue 1008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1242:72: if(iz*jz.ne.0) go to 10260 1008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1243:72: nlp=nlp+1 1008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1244:72: dlx=0.0 1009 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1245:72: 11130 do 11131 k=1,ni 1009 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1246:72: if(ju(k).eq.0)goto 11131 1010 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1247:72: ak=a(k) 1010 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1248:72: u=g(k)+ak*xv(k) 1010 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1249:72: v=abs(u)-vp(k)*ab 1010 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1250:72: a(k)=0.0 1011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1251:72: 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: if(a(k).eq.ak)goto 11131 1013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1253:72: if(mm(k) .ne. 0)goto 11151 1013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1254:72: nin=nin+1 1013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1255:72: if(nin.gt.nx)goto 11132 1014 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1256:72: 11160 do 11161 j=1,ni 1014 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1257:72: if(ju(j).eq.0)goto 11161 1015 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1258:72: if(mm(j) .eq. 0)goto 11181 1015 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1259:72: c(j,nin)=c(k,mm(j)) 1015 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1260:72: goto 11161 1015 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1261:72: 11181 continue 1016 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1262:72: if(j .ne. k)goto 11201 1016 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1263:72: c(j,nin)=xv(j) 1016 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1264:72: goto 11161 1016 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1265:72: 11201 continue 1017 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1266:72: 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: 11161 continue 1020 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1268:72: 11162 continue 1020 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1269:72: mm(k)=nin 1020 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1270:72: ia(nin)=k 1021 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1271:72: 11151 continue 1022 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1272:72: del=a(k)-ak 1022 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1273:72: rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1023 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1274:72: dlx=max(xv(k)*del**2,dlx) 1024 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1275:72: 11210 do 11211 j=1,ni 1024 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1276:72: 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: 11211 continue 1025 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1278:72: 11212 continue 1025 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1279:72: 11131 continue 1026 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1280:72: 11132 continue 1026 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1281:72: if(dlx.lt.thr)goto 11122 1026 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1282:72: if(nin.gt.nx)goto 11122 1027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1283:72: if(nlp .le. maxit)goto 11231 1027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1284:72: jerr=-m 1027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1285:72: return 1027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1286:72: 11231 continue 1028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1287:72: 10260 continue 1028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1288:72: iz=1 1028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1289:72: da(1:nin)=a(ia(1:nin)) 1029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1290:72: 11240 continue 1029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1291:72: 11241 continue 1029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1292:72: nlp=nlp+1 1029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1293:72: dlx=0.0 1030 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1294:72: 11250 do 11251 l=1,nin 1030 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1295:72: k=ia(l) 1031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1296:72: ak=a(k) 1031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1297:72: u=g(k)+ak*xv(k) 1031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1298:72: v=abs(u)-vp(k)*ab 1031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1299:72: a(k)=0.0 1032 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1300:72: 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: if(a(k).eq.ak)goto 11251 1034 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1302:72: del=a(k)-ak 1034 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1303:72: rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1035 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1304:72: dlx=max(xv(k)*del**2,dlx) 1036 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1305:72: 11260 do 11261 j=1,nin 1036 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1306:72: 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: 11261 continue 1037 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1308:72: 11262 continue 1037 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1309:72: 11251 continue 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1310:72: 11252 continue 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1311:72: if(dlx.lt.thr)goto 11242 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1312:72: if(nlp .le. maxit)goto 11281 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1313:72: jerr=-m 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1314:72: return 1038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1315:72: 11281 continue 1039 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1316:72: goto 11241 1040 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1317:72: 11242 continue 1040 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1318:72: da(1:nin)=a(ia(1:nin))-da(1:nin) 1041 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1319:72: 11290 do 11291 j=1,ni 1041 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1320:72: if(mm(j).ne.0)goto 11291 1042 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1321:72: 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: 11291 continue 1044 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1323:72: 11292 continue 1044 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1324:72: jz=0 1045 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1325:72: goto 11121 1046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1326:72: 11122 continue 1046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1327:72: if(nin .le. nx)goto 11311 1046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1328:72: jerr=-10000-m 1046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1329:72: goto 11052 1046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1330:72: 11311 continue 1047 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1331:72: 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: kin(m)=nin 1048 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1333:72: rsqo(m)=rsq 1048 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1334:72: almo(m)=alm 1048 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1335:72: lmu=m 1049 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1336:72: if(m.lt.mnl)goto 11051 1049 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1337:72: if(flmin.ge.1.0)goto 11051 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1338:72: me=0 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1339:72: 11320 do 11321 j=1,nin 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1340:72: if(ao(j,m).ne.0.0) me=me+1 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1341:72: 11321 continue 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1342:72: 11322 continue 1050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1343:72: if(me.gt.ne)goto 11052 1051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1344:72: if(rsq-rsq0.lt.sml*rsq)goto 11052 1051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1345:72: if(rsq.gt.rsqmax)goto 11052 1052 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1346:72: 11051 continue 1053 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1347:72: 11052 continue 1053 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1348:72: deallocate(a,mm,c,da) 1054 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1349:72: return 1055 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1350:72: end 1056 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1351:72: 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: real x(*),vp(ni),y(no),w(no),ulam(nlam) 1059 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1354:72: real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 1060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1355:72: integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1061 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1358:72: allocate(xm(1:ni),stat=jerr) 1066 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1359:72: allocate(xs(1:ni),stat=ierr) 1066 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1360:72: jerr=jerr+ierr 1067 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1361:72: allocate(ju(1:ni),stat=ierr) 1067 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1362:72: jerr=jerr+ierr 1068 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1363:72: allocate(xv(1:ni),stat=ierr) 1068 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1364:72: jerr=jerr+ierr 1069 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1365:72: allocate(vlam(1:nlam),stat=ierr) 1069 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1366:72: jerr=jerr+ierr 1070 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1367:72: if(jerr.ne.0) return 1071 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1368:72: call spchkvars(no,ni,x,ix,ju) 1072 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1369:72: 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: if(maxval(ju) .gt. 0)goto 11341 1073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1371:72: jerr=7777 1073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1372:72: return 1073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1373:72: 11341 continue 1074 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1374:72: 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: if(jerr.ne.0) return 1076 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1376:72: if(flmin.ge.1.0) vlam=ulam/ys 1077 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1377:72: 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: if(jerr.gt.0) return 1080 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1380:72: 11350 do 11351 k=1,lmu 1080 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1381:72: alm(k)=ys*alm(k) 1080 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1382:72: nk=nin(k) 1081 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1383:72: 11360 do 11361 l=1,nk 1081 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1384:72: ca(l,k)=ys*ca(l,k)/xs(ia(l)) 1081 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1385:72: 11361 continue 1082 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1386:72: 11362 continue 1082 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1387:72: 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: 11351 continue 1084 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1389:72: 11352 continue 1084 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1390:72: deallocate(xm,xs,ju,xv,vlam) 1085 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1391:72: return 1086 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1392:72: end 1087 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1393:72: 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: 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: integer ix(*),jx(*),ju(ni) 1089 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1397:72: w=w/sum(w) 1090 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1398:72: 11370 do 11371 j=1,ni 1090 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1399:72: if(ju(j).eq.0)goto 11371 1091 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1400:72: jb=ix(j) 1091 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1401:72: je=ix(j+1)-1 1091 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1402:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1403:72: 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: if(isd.gt.0) xs(j)=sqrt(xv(j)) 1094 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1405:72: 11371 continue 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1406:72: 11372 continue 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1407:72: if(isd .ne. 0)goto 11391 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1408:72: xs=1.0 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1409:72: goto 11401 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1410:72: 11391 continue 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1411:72: xv=1.0 1095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1412:72: 11401 continue 1096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1413:72: 11381 continue 1096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1414:72: ym=dot_product(w,y) 1096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1415:72: y=y-ym 1096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1416:72: ys=sqrt(dot_product(w,y**2)) 1096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1417:72: y=y/ys 1097 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1418:72: return 1098 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1419:72: end 1099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1420:72: 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: 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: real y(no),w(no),x(*),vp(ni),ulam(nlam) 1103 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1425:72: 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: integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 1105 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1429:72: allocate(a(1:ni),stat=jerr) 1110 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1430:72: allocate(mm(1:ni),stat=ierr) 1110 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1431:72: jerr=jerr+ierr 1111 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1432:72: allocate(g(1:ni),stat=ierr) 1111 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1433:72: jerr=jerr+ierr 1112 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1434:72: allocate(iy(1:ni),stat=ierr) 1112 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1435:72: jerr=jerr+ierr 1113 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1436:72: if(jerr.ne.0) return 1114 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1437:72: bta=beta 1114 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1438:72: omb=1.0-bta 1114 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1439:72: alm=0.0 1114 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1440:72: iy=0 1115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1441:72: if(flmin .ge. 1.0)goto 11421 1115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1442:72: eqs=max(eps,flmin) 1115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1443:72: alf=eqs**(1.0/(nlam-1)) 1115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1444:72: 11421 continue 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1445:72: rsq=0.0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1446:72: a=0.0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1447:72: mm=0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1448:72: o=0.0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1449:72: nlp=0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1450:72: nin=nlp 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1451:72: iz=0 1116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1452:72: mnl=min(mnlam,nlam) 1117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1453:72: 11430 do 11431 j=1,ni 1117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1454:72: if(ju(j).eq.0)goto 11431 1118 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1455:72: jb=ix(j) 1118 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1456:72: je=ix(j+1)-1 1119 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1457:72: 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: 11431 continue 1121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1459:72: 11432 continue 1121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1460:72: 11440 do 11441 m=1,nlam 1121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1461:72: alm0=alm 1122 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1462:72: if(flmin .lt. 1.0)goto 11461 1122 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1463:72: alm=ulam(m) 1122 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1464:72: goto 11451 1123 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1465:72: 11461 if(m .le. 2)goto 11471 1123 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1466:72: alm=alm*alf 1123 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1467:72: goto 11451 1124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1468:72: 11471 if(m .ne. 1)goto 11481 1124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1469:72: alm=big 1124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1470:72: goto 11491 1125 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1471:72: 11481 continue 1125 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1472:72: alm0=0.0 1126 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1473:72: 11500 do 11501 j=1,ni 1126 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1474:72: if(ju(j).eq.0)goto 11501 1126 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1475:72: 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: 11501 continue 1127 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1477:72: 11502 continue 1127 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1478:72: alm0=alm0/max(bta,1.0e-3) 1127 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1479:72: alm=alf*alm0 1128 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1480:72: 11491 continue 1129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1481:72: 11451 continue 1129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1482:72: dem=alm*omb 1129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1483:72: ab=alm*bta 1129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1484:72: rsq0=rsq 1129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1485:72: jz=1 1130 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1486:72: tlam=bta*(2.0*alm-alm0) 1131 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1487:72: 11510 do 11511 k=1,ni 1131 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1488:72: if(iy(k).eq.1)goto 11511 1131 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1489:72: if(ju(k).eq.0)goto 11511 1132 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1490:72: if(g(k).gt.tlam*vp(k)) iy(k)=1 1133 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1491:72: 11511 continue 1134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1492:72: 11512 continue 1134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1493:72: 11520 continue 1134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1494:72: 11521 continue 1134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1495:72: if(iz*jz.ne.0) go to 10260 1135 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1496:72: 10680 continue 1135 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1497:72: nlp=nlp+1 1135 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1498:72: dlx=0.0 1136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1499:72: 11530 do 11531 k=1,ni 1136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1500:72: if(iy(k).eq.0)goto 11531 1136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1501:72: jb=ix(k) 1136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1502:72: je=ix(k+1)-1 1137 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1503:72: 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: ak=a(k) 1138 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1505:72: u=gk+ak*xv(k) 1138 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1506:72: v=abs(u)-vp(k)*ab 1138 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1507:72: a(k)=0.0 1139 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1508:72: 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: if(a(k).eq.ak)goto 11531 1141 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1510:72: if(mm(k) .ne. 0)goto 11551 1141 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1511:72: nin=nin+1 1141 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1512:72: if(nin.gt.nx)goto 11532 1142 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1513:72: mm(k)=nin 1142 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1514:72: ia(nin)=k 1143 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1515:72: 11551 continue 1144 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1516:72: del=a(k)-ak 1144 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1517:72: rsq=rsq+del*(2.0*gk-del*xv(k)) 1145 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1518:72: 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: o=o+del*xm(k)/xs(k) 1146 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1520:72: dlx=max(xv(k)*del**2,dlx) 1147 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1521:72: 11531 continue 1148 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1522:72: 11532 continue 1148 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1523:72: if(nin.gt.nx)goto 11522 1149 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1524:72: if(dlx .ge. thr)goto 11571 1149 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1525:72: ixx=0 1150 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1526:72: 11580 do 11581 j=1,ni 1150 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1527:72: if(iy(j).eq.1)goto 11581 1150 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1528:72: if(ju(j).eq.0)goto 11581 1151 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1529:72: jb=ix(j) 1151 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1530:72: je=ix(j+1)-1 1152 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1531:72: 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: if(g(j) .le. ab*vp(j))goto 11601 1153 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1533:72: iy(j)=1 1153 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1534:72: ixx=1 1153 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1535:72: 11601 continue 1154 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1536:72: 11581 continue 1155 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1537:72: 11582 continue 1155 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1538:72: if(ixx.eq.1) go to 10680 1156 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1539:72: goto 11522 1157 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1540:72: 11571 continue 1158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1541:72: if(nlp .le. maxit)goto 11621 1158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1542:72: jerr=-m 1158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1543:72: return 1158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1544:72: 11621 continue 1159 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1545:72: 10260 continue 1159 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1546:72: iz=1 1160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1547:72: 11630 continue 1160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1548:72: 11631 continue 1160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1549:72: nlp=nlp+1 1160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1550:72: dlx=0.0 1161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1551:72: 11640 do 11641 l=1,nin 1161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1552:72: k=ia(l) 1161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1553:72: jb=ix(k) 1161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1554:72: je=ix(k+1)-1 1162 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1555:72: 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: ak=a(k) 1163 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1557:72: u=gk+ak*xv(k) 1163 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1558:72: v=abs(u)-vp(k)*ab 1163 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1559:72: a(k)=0.0 1164 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1560:72: 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: if(a(k).eq.ak)goto 11641 1166 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1562:72: del=a(k)-ak 1166 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1563:72: rsq=rsq+del*(2.0*gk-del*xv(k)) 1167 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1564:72: 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: o=o+del*xm(k)/xs(k) 1168 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1566:72: dlx=max(xv(k)*del**2,dlx) 1169 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1567:72: 11641 continue 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1568:72: 11642 continue 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1569:72: if(dlx.lt.thr)goto 11632 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1570:72: if(nlp .le. maxit)goto 11661 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1571:72: jerr=-m 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1572:72: return 1170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1573:72: 11661 continue 1171 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1574:72: goto 11631 1172 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1575:72: 11632 continue 1172 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1576:72: jz=0 1173 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1577:72: goto 11521 1174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1578:72: 11522 continue 1174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1579:72: if(nin .le. nx)goto 11681 1174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1580:72: jerr=-10000-m 1174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1581:72: goto 11442 1174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1582:72: 11681 continue 1175 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1583:72: 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: kin(m)=nin 1176 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1585:72: rsqo(m)=rsq 1176 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1586:72: almo(m)=alm 1176 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1587:72: lmu=m 1177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1588:72: if(m.lt.mnl)goto 11441 1177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1589:72: if(flmin.ge.1.0)goto 11441 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1590:72: me=0 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1591:72: 11690 do 11691 j=1,nin 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1592:72: if(ao(j,m).ne.0.0) me=me+1 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1593:72: 11691 continue 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1594:72: 11692 continue 1178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1595:72: if(me.gt.ne)goto 11442 1179 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1596:72: if(rsq-rsq0.lt.sml*rsq)goto 11442 1179 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1597:72: if(rsq.gt.rsqmax)goto 11442 1180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1598:72: 11441 continue 1181 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1599:72: 11442 continue 1181 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1600:72: deallocate(a,mm,g,iy) 1182 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1601:72: return 1183 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1602:72: end 1184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1603:72: subroutine spchkvars(no,ni,x,ix,ju) 1185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1604:72: real x(*) 1185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1605:72: integer ix(*),ju(ni) 1186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1606:72: 11700 do 11701 j=1,ni 1186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1607:72: ju(j)=0 1186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1608:72: jb=ix(j) 1186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1609:72: nj=ix(j+1)-jb 1186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1610:72: if(nj.eq.0)goto 11701 1187 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1611:72: je=ix(j+1)-1 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1612:72: if(nj .ge. no)goto 11721 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1613:72: 11730 do 11731 i=jb,je 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1614:72: if(x(i).eq.0.0)goto 11731 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1615:72: ju(j)=1 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1616:72: goto 11732 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1617:72: 11731 continue 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1618:72: 11732 continue 1188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1619:72: goto 11741 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1620:72: 11721 continue 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1621:72: t=x(jb) 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1622:72: 11750 do 11751 i=jb+1,je 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1623:72: if(x(i).eq.t)goto 11751 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1624:72: ju(j)=1 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1625:72: goto 11752 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1626:72: 11751 continue 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1627:72: 11752 continue 1189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1628:72: 11741 continue 1190 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1629:72: 11711 continue 1190 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1630:72: 11701 continue 1191 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1631:72: 11702 continue 1191 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1632:72: return 1192 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1633:72: end 1193 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1634:72: subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f) 1194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1635:72: real ca(*),x(*),f(n) 1194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1636:72: integer ia(*),ix(*),jx(*) 1195 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1637:72: f=a0 1196 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1638:72: 11760 do 11761 j=1,nin 1196 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1639:72: k=ia(j) 1196 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1640:72: kb=ix(k) 1196 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1641:72: ke=ix(k+1)-1 1197 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1642:72: 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: 11761 continue 1199 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1644:72: 11762 continue 1199 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1645:72: return 1200 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1646:72: end 1201 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1647:72: function row_prod(i,j,ia,ja,ra,w) 1202 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1648:72: integer ia(*),ja(*) 1202 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1649:72: real ra(*),w(*) 1203 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1650:72: 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: return 1206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1653:72: end 1207 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1654:72: function dot(x,y,mx,my,nx,ny,w) 1208 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1655:72: real x(*),y(*),w(*) 1208 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1656:72: integer mx(*),my(*) 1209 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1657:72: i=1 1209 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1658:72: j=i 1209 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1659:72: s=0.0 1210 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1660:72: 11770 continue 1210 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1661:72: 11771 continue 1210 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1662:72: 11780 continue 1211 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1663:72: 11781 if(mx(i).ge.my(j))goto 11782 1211 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1664:72: i=i+1 1211 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1665:72: if(i.gt.nx) go to 11790 1211 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1666:72: goto 11781 1212 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1667:72: 11782 continue 1212 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1668:72: if(mx(i).eq.my(j)) go to 11800 1213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1669:72: 11810 continue 1213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1670:72: 11811 if(my(j).ge.mx(i))goto 11812 1213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1671:72: j=j+1 1213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1672:72: if(j.gt.ny) go to 11790 1213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1673:72: goto 11811 1214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1674:72: 11812 continue 1214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1675:72: if(mx(i).eq.my(j)) go to 11800 1214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1676:72: goto 11771 1215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1677:72: 11800 continue 1215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1678:72: s=s+w(mx(i))*x(i)*y(j) 1216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1679:72: i=i+1 1216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1680:72: if(i.gt.nx)goto 11772 1216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1681:72: j=j+1 1216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1682:72: if(j.gt.ny)goto 11772 1217 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1683:72: goto 11771 1218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1684:72: 11772 continue 1218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1685:72: 11790 continue 1218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1686:72: dot=s 1219 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1687:72: return 1220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1688:72: end 1221 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1689:72: 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: 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: 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: integer jd(*),ia(nx),nin(nlam) 1226 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1696:72: if(maxval(vp) .gt. 0.0)goto 11831 1230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1697:72: jerr=10000 1230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1698:72: return 1230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1699:72: 11831 continue 1231 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1700:72: allocate(ww(1:no),stat=jerr) 1232 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1701:72: allocate(ju(1:ni),stat=ierr) 1232 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1702:72: jerr=jerr+ierr 1233 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1703:72: allocate(vq(1:ni),stat=ierr) 1233 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1704:72: jerr=jerr+ierr 1234 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1705:72: allocate(xm(1:ni),stat=ierr) 1234 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1706:72: jerr=jerr+ierr 1235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1707:72: if(isd .le. 0)goto 11851 1235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1708:72: allocate(xs(1:ni),stat=ierr) 1235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1709:72: jerr=jerr+ierr 1235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1710:72: 11851 continue 1236 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1711:72: if(jerr.ne.0) return 1237 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1712:72: call chkvars(no,ni,x,ju) 1238 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1713:72: 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: if(maxval(ju) .gt. 0)goto 11871 1239 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1715:72: jerr=7777 1239 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1716:72: return 1239 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1717:72: 11871 continue 1240 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1718:72: vq=max(0.0,vp) 1240 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1719:72: vq=vq*ni/sum(vq) 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1720:72: 11880 do 11881 i=1,no 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1721:72: ww(i)=sum(y(i,:)) 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1722:72: y(i,:)=y(i,:)/ww(i) 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1723:72: 11881 continue 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1724:72: 11882 continue 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1725:72: sw=sum(ww) 1241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1726:72: ww=ww/sw 1242 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1727:72: call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 1243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1728:72: if(nc .ne. 1)goto 11901 1244 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1729:72: 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: goto 11911 1247 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1732:72: 11901 continue 1248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1733:72: 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: 11911 continue 1251 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1736:72: 11891 continue 1251 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1737:72: if(jerr.gt.0) return 1251 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1738:72: dev0=2.0*sw*dev0 1252 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1739:72: 11920 do 11921 k=1,lmu 1252 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1740:72: nk=nin(k) 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1741:72: 11930 do 11931 ic=1,nc 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1742:72: if(isd .le. 0)goto 11951 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1743:72: 11960 do 11961 l=1,nk 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1744:72: ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1745:72: 11961 continue 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1746:72: 11962 continue 1253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1747:72: 11951 continue 1254 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1748:72: 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: 11931 continue 1256 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1750:72: 11932 continue 1256 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1751:72: 11921 continue 1257 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1752:72: 11922 continue 1257 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1753:72: deallocate(ww,ju,vq,xm) 1257 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1754:72: if(isd.gt.0) deallocate(xs) 1258 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1755:72: return 1259 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1756:72: end 1260 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1757:72: subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs) 1261 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1758:72: real x(no,ni),w(no),xm(ni),xs(ni) 1261 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1759:72: integer ju(ni) 1262 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1760:72: 11970 do 11971 j=1,ni 1262 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1761:72: if(ju(j).eq.0)goto 11971 1263 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1762:72: xm(j)=dot_product(w,x(:,j)) 1263 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1763:72: x(:,j)=x(:,j)-xm(j) 1264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1764:72: if(isd .le. 0)goto 11991 1264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1765:72: xs(j)=sqrt(dot_product(w,x(:,j)**2)) 1264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1766:72: x(:,j)=x(:,j)/xs(j) 1264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1767:72: 11991 continue 1265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1768:72: 11971 continue 1266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1769:72: 11972 continue 1266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1770:72: return 1267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1771:72: end 1268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1772:72: 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: 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: 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: real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1778:72: integer ju(ni),m(nx),kin(nlam) 1275 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1781:72: allocate(b(0:ni),stat=jerr) 1280 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1782:72: allocate(xv(1:ni),stat=ierr) 1280 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1783:72: jerr=jerr+ierr 1281 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1784:72: allocate(ga(1:ni),stat=ierr) 1281 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1785:72: jerr=jerr+ierr 1282 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1786:72: allocate(bs(0:ni),stat=ierr) 1282 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1787:72: jerr=jerr+ierr 1283 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1788:72: allocate(mm(1:ni),stat=ierr) 1283 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1789:72: jerr=jerr+ierr 1284 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1790:72: allocate(ixx(1:ni),stat=ierr) 1284 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1791:72: jerr=jerr+ierr 1285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1792:72: allocate(r(1:no),stat=ierr) 1285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1793:72: jerr=jerr+ierr 1286 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1794:72: allocate(v(1:no),stat=ierr) 1286 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1795:72: jerr=jerr+ierr 1287 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1796:72: allocate(q(1:no),stat=ierr) 1287 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1797:72: jerr=jerr+ierr 1288 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1798:72: if(jerr.ne.0) return 1289 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1799:72: fmax=log(1.0/pmin-1.0) 1289 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1800:72: fmin=-fmax 1289 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1801:72: vmin=(1.0+pmin)*pmin*(1.0-pmin) 1290 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1802:72: bta=parm 1290 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1803:72: omb=1.0-bta 1291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1804:72: q0=dot_product(w,y) 1291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1805:72: if(q0 .gt. pmin)goto 12011 1291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1806:72: jerr=8001 1291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1807:72: return 1291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1808:72: 12011 continue 1292 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1809:72: if(q0 .lt. 1.0-pmin)goto 12031 1292 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1810:72: jerr=9001 1292 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1811:72: return 1292 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1812:72: 12031 continue 1293 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1813:72: ixx=0 1293 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1814:72: al=0.0 1293 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1815:72: bz=log(q0/(1.0-q0)) 1294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1816:72: if(nonzero(no,g) .ne. 0)goto 12051 1294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1817:72: vi=q0*(1.0-q0) 1294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1818:72: b(0)=bz 1294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1819:72: v=vi*w 1295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1820:72: r=w*(y-q0) 1295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1821:72: q=q0 1295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1822:72: xmz=vi 1295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1823:72: dev1=-(bz*q0+log(1.0-q0)) 1296 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1824:72: goto 12061 1297 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1825:72: 12051 continue 1297 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1826:72: b(0)=azero(no,y,g,w,jerr) 1297 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1827:72: if(jerr.ne.0) return 1298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1828:72: q=1.0/(1.0+exp(-b(0)-g)) 1298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1829:72: v=w*q*(1.0-q) 1298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1830:72: r=w*(y-q) 1298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1831:72: xmz=sum(v) 1299 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1832:72: 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: 12061 continue 1301 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1834:72: 12041 continue 1301 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1835:72: if(kopt .le. 0)goto 12081 1302 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1836:72: if(isd .le. 0)goto 12101 1302 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1837:72: xv=0.25 1302 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1838:72: goto 12111 1303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1839:72: 12101 continue 1303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1840:72: 12120 do 12121 j=1,ni 1303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1841:72: 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: 12121 continue 1303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1843:72: 12122 continue 1303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1844:72: 12111 continue 1304 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1845:72: 12091 continue 1304 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1846:72: 12081 continue 1305 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1847:72: dev0=dev1 1306 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1848:72: 12130 do 12131 i=1,no 1306 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1849:72: 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: 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: 12131 continue 1309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1852:72: 12132 continue 1309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1853:72: if(flmin .ge. 1.0)goto 12151 1309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1854:72: eqs=max(eps,flmin) 1309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1855:72: alf=eqs**(1.0/(nlam-1)) 1309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1856:72: 12151 continue 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1857:72: m=0 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1858:72: mm=0 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1859:72: nlp=0 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1860:72: nin=nlp 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1861:72: mnl=min(mnlam,nlam) 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1862:72: bs=0.0 1310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1863:72: b(1:ni)=0.0 1311 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1864:72: shr=shri*dev0 1312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1865:72: 12160 do 12161 j=1,ni 1312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1866:72: if(ju(j).eq.0)goto 12161 1312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1867:72: ga(j)=abs(dot_product(r,x(:,j))) 1312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1868:72: 12161 continue 1313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1869:72: 12162 continue 1313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1870:72: 12170 do 12171 ilm=1,nlam 1313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1871:72: al0=al 1314 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1872:72: if(flmin .lt. 1.0)goto 12191 1314 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1873:72: al=ulam(ilm) 1314 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1874:72: goto 12181 1315 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1875:72: 12191 if(ilm .le. 2)goto 12201 1315 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1876:72: al=al*alf 1315 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1877:72: goto 12181 1316 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1878:72: 12201 if(ilm .ne. 1)goto 12211 1316 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1879:72: al=big 1316 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1880:72: goto 12221 1317 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1881:72: 12211 continue 1317 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1882:72: al0=0.0 1318 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1883:72: 12230 do 12231 j=1,ni 1318 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1884:72: if(ju(j).eq.0)goto 12231 1318 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1885:72: 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: 12231 continue 1319 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1887:72: 12232 continue 1319 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1888:72: al0=al0/max(bta,1.0e-3) 1319 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1889:72: al=alf*al0 1320 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1890:72: 12221 continue 1321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1891:72: 12181 continue 1321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1892:72: al2=al*omb 1321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1893:72: al1=al*bta 1321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1894:72: tlam=bta*(2.0*al-al0) 1322 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1895:72: 12240 do 12241 k=1,ni 1322 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1896:72: if(ixx(k).eq.1)goto 12241 1322 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1897:72: if(ju(k).eq.0)goto 12241 1323 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1898:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1324 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1899:72: 12241 continue 1325 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1900:72: 12242 continue 1325 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1901:72: 10680 continue 1326 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1902:72: 12250 continue 1326 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1903:72: 12251 continue 1326 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1904:72: bs(0)=b(0) 1326 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1905:72: 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: if(kopt .ne. 0)goto 12271 1328 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1907:72: 12280 do 12281 j=1,ni 1328 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1908:72: 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: 12281 continue 1329 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1910:72: 12282 continue 1329 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1911:72: 12271 continue 1330 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1912:72: 12290 continue 1330 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1913:72: 12291 continue 1330 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1914:72: nlp=nlp+1 1330 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1915:72: dlx=0.0 1331 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1916:72: 12300 do 12301 k=1,ni 1331 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1917:72: if(ixx(k).eq.0)goto 12301 1332 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1918:72: bk=b(k) 1332 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1919:72: gk=dot_product(r,x(:,k)) 1333 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1920:72: u=gk+xv(k)*b(k) 1333 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1921:72: au=abs(u)-vp(k)*al1 1334 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1922:72: if(au .gt. 0.0)goto 12321 1334 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1923:72: b(k)=0.0 1334 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1924:72: goto 12331 1335 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1925:72: 12321 continue 1335 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1926:72: b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1335 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1927:72: 12331 continue 1336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1928:72: 12311 continue 1336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1929:72: d=b(k)-bk 1336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1930:72: if(abs(d).le.0.0)goto 12301 1336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1931:72: dlx=max(dlx,xv(k)*d**2) 1337 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1932:72: r=r-d*v*x(:,k) 1338 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1933:72: if(mm(k) .ne. 0)goto 12351 1338 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1934:72: nin=nin+1 1338 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1935:72: if(nin.gt.nx)goto 12302 1339 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1936:72: mm(k)=nin 1339 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1937:72: m(nin)=k 1340 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1938:72: 12351 continue 1341 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1939:72: 12301 continue 1342 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1940:72: 12302 continue 1342 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1941:72: if(nin.gt.nx)goto 12292 1343 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1942:72: d=sum(r)/xmz 1344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1943:72: if(d .eq. 0.0)goto 12371 1344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1944:72: b(0)=b(0)+d 1344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1945:72: dlx=max(dlx,xmz*d**2) 1344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1946:72: r=r-d*v 1344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1947:72: 12371 continue 1345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1948:72: if(dlx.lt.shr)goto 12292 1345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1949:72: if(nlp .le. maxit)goto 12391 1345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1950:72: jerr=-ilm 1345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1951:72: return 1345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1952:72: 12391 continue 1346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1953:72: 12400 continue 1346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1954:72: 12401 continue 1346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1955:72: nlp=nlp+1 1346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1956:72: dlx=0.0 1347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1957:72: 12410 do 12411 l=1,nin 1347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1958:72: k=m(l) 1347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1959:72: bk=b(k) 1348 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1960:72: gk=dot_product(r,x(:,k)) 1349 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1961:72: u=gk+xv(k)*b(k) 1349 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1962:72: au=abs(u)-vp(k)*al1 1350 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1963:72: if(au .gt. 0.0)goto 12431 1350 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1964:72: b(k)=0.0 1350 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1965:72: goto 12441 1351 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1966:72: 12431 continue 1351 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1967:72: b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1351 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1968:72: 12441 continue 1352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1969:72: 12421 continue 1352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1970:72: d=b(k)-bk 1352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1971:72: if(abs(d).le.0.0)goto 12411 1352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1972:72: dlx=max(dlx,xv(k)*d**2) 1353 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1973:72: r=r-d*v*x(:,k) 1354 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1974:72: 12411 continue 1355 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1975:72: 12412 continue 1355 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1976:72: d=sum(r)/xmz 1356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1977:72: if(d .eq. 0.0)goto 12461 1356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1978:72: b(0)=b(0)+d 1356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1979:72: dlx=max(dlx,xmz*d**2) 1356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1980:72: r=r-d*v 1356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1981:72: 12461 continue 1357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1982:72: if(dlx.lt.shr)goto 12402 1357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1983:72: if(nlp .le. maxit)goto 12481 1357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1984:72: jerr=-ilm 1357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1985:72: return 1357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1986:72: 12481 continue 1358 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1987:72: goto 12401 1359 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1988:72: 12402 continue 1359 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1989:72: goto 12291 1360 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1990:72: 12292 continue 1360 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1991:72: if(nin.gt.nx)goto 12252 1361 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1992:72: 12490 do 12491 i=1,no 1361 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1993:72: fi=b(0)+g(i) 1362 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1994:72: 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: if(fi .ge. fmin)goto 12511 1363 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1996:72: q(i)=0.0 1363 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1997:72: goto 12501 1363 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1998:72: 12511 if(fi .le. fmax)goto 12521 1363 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1999:72: q(i)=1.0 1363 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2000:72: goto 12531 1364 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2001:72: 12521 continue 1364 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2002:72: q(i)=1.0/(1.0+exp(-fi)) 1364 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2003:72: 12531 continue 1365 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2004:72: 12501 continue 1365 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2005:72: 12491 continue 1366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2006:72: 12492 continue 1366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2007:72: v=w*q*(1.0-q) 1366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2008:72: xmz=sum(v) 1366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2009:72: if(xmz.le.vmin)goto 12252 1366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2010:72: r=w*(y-q) 1367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2011:72: if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551 1367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2012:72: ix=0 1368 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2013:72: 12560 do 12561 j=1,nin 1368 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2014:72: k=m(j) 1369 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2015:72: 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: ix=1 1369 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2017:72: goto 12562 1370 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2018:72: 12561 continue 1371 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2019:72: 12562 continue 1371 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2020:72: if(ix .ne. 0)goto 12581 1372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2021:72: 12590 do 12591 k=1,ni 1372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2022:72: if(ixx(k).eq.1)goto 12591 1372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2023:72: if(ju(k).eq.0)goto 12591 1373 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2024:72: ga(k)=abs(dot_product(r,x(:,k))) 1374 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2025:72: if(ga(k) .le. al1*vp(k))goto 12611 1374 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2026:72: ixx(k)=1 1374 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2027:72: ix=1 1374 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2028:72: 12611 continue 1375 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2029:72: 12591 continue 1376 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2030:72: 12592 continue 1376 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2031:72: if(ix.eq.1) go to 10680 1377 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2032:72: goto 12252 1378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2033:72: 12581 continue 1379 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2034:72: 12551 continue 1380 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2035:72: goto 12251 1381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2036:72: 12252 continue 1381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2037:72: if(nin .le. nx)goto 12631 1381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2038:72: jerr=-10000-ilm 1381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2039:72: goto 12172 1381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2040:72: 12631 continue 1382 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2041:72: 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: kin(ilm)=nin 1383 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2043:72: a0(ilm)=b(0) 1383 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2044:72: alm(ilm)=al 1383 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2045:72: lmu=ilm 1384 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2046:72: devi=dev2(no,w,y,q,pmin) 1385 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2047:72: dev(ilm)=(dev1-devi)/dev0 1385 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2048:72: if(xmz.le.vmin)goto 12172 1386 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2049:72: if(ilm.lt.mnl)goto 12171 1386 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2050:72: if(flmin.ge.1.0)goto 12171 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2051:72: me=0 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2052:72: 12640 do 12641 j=1,nin 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2053:72: if(a(j,ilm).ne.0.0) me=me+1 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2054:72: 12641 continue 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2055:72: 12642 continue 1387 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2056:72: if(me.gt.ne)goto 12172 1388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2057:72: if(dev(ilm).gt.devmax)goto 12172 1388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2058:72: if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172 1389 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2059:72: 12171 continue 1390 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2060:72: 12172 continue 1390 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2061:72: g=log(q/(1.0-q)) 1391 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2062:72: deallocate(b,bs,v,r,xv,q,mm,ga,ixx) 1392 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2063:72: return 1393 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2064:72: end 1394 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2065:72: function dev2(n,w,y,p,pmin) 1395 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2066:72: real w(n),y(n),p(n) 1396 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2067:72: pmax=1.0-pmin 1396 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2068:72: s=0.0 1397 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2069:72: 12650 do 12651 i=1,n 1397 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2070:72: pi=min(max(pmin,p(i)),pmax) 1398 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2071:72: 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: 12651 continue 1400 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2073:72: 12652 continue 1400 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2074:72: dev2=s 1401 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2075:72: return 1402 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2076:72: end 1403 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2077:72: function azero(n,y,g,q,jerr) 1404 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2078:72: parameter(eps=1.0e-7) 1405 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2079:72: real y(n),g(n),q(n) 1406 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2081:72: allocate(e(1:n),stat=jerr) 1410 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2082:72: allocate(p(1:n),stat=ierr) 1410 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2083:72: jerr=jerr+ierr 1411 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2084:72: allocate(w(1:n),stat=ierr) 1411 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2085:72: jerr=jerr+ierr 1412 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2086:72: if(jerr.ne.0) return 1413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2087:72: az=0.0 1413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2088:72: e=exp(-g) 1413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2089:72: qy=dot_product(q,y) 1413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2090:72: p=1.0/(1.0+e) 1414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2091:72: 12660 continue 1414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2092:72: 12661 continue 1414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2093:72: w=q*p*(1.0-p) 1415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2094:72: d=(qy-dot_product(q,p))/sum(w) 1415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2095:72: az=az+d 1415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2096:72: if(abs(d).lt.eps)goto 12662 1416 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2097:72: ea0=exp(-az) 1416 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2098:72: p=1.0/(1.0+ea0*e) 1417 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2099:72: goto 12661 1418 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2100:72: 12662 continue 1418 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2101:72: azero=az 1419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2102:72: deallocate(e,p,w) 1420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2103:72: return 1421 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2104:72: end 1422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2105:72: 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: 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: 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: 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: integer ju(ni),m(nx),kin(nlam) 1429 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2121:72: allocate(r(1:no),stat=ierr) 1440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2122:72: jerr=jerr+ierr 1441 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2123:72: allocate(v(1:no),stat=ierr) 1441 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2124:72: jerr=jerr+ierr 1442 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2125:72: allocate(mm(1:ni),stat=ierr) 1442 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2126:72: jerr=jerr+ierr 1443 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2127:72: allocate(is(1:max(nc,ni)),stat=ierr) 1443 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2128:72: jerr=jerr+ierr 1444 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2129:72: allocate(sxp(1:no),stat=ierr) 1444 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2130:72: jerr=jerr+ierr 1445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2131:72: allocate(sxpl(1:no),stat=ierr) 1445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2132:72: jerr=jerr+ierr 1446 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2133:72: allocate(di(1:no),stat=ierr) 1446 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2134:72: jerr=jerr+ierr 1447 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2135:72: allocate(ga(1:ni),stat=ierr) 1447 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2136:72: jerr=jerr+ierr 1448 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2137:72: allocate(ixx(1:ni),stat=ierr) 1448 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2138:72: jerr=jerr+ierr 1449 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2139:72: if(jerr.ne.0) return 1450 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2140:72: pmax=1.0-pmin 1450 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2141:72: emin=pmin/pmax 1450 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2142:72: emax=1.0/emin 1451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2143:72: pfm=(1.0+pmin)*pmin 1451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2144:72: pfx=(1.0-pmin)*pmax 1451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2145:72: vmin=pfm*pmax 1452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2146:72: bta=parm 1452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2147:72: omb=1.0-bta 1452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2148:72: dev1=0.0 1452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2149:72: dev0=0.0 1453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2150:72: 12670 do 12671 ic=1,nc 1453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2151:72: q0=dot_product(w,y(:,ic)) 1454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2152:72: if(q0 .gt. pmin)goto 12691 1454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2153:72: jerr =8000+ic 1454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2154:72: return 1454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2155:72: 12691 continue 1455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2156:72: if(q0 .lt. 1.0-pmin)goto 12711 1455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2157:72: jerr =9000+ic 1455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2158:72: return 1455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2159:72: 12711 continue 1456 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2160:72: b(0,ic)=log(q0) 1456 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2161:72: dev1=dev1-q0*b(0,ic) 1456 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2162:72: b(1:ni,ic)=0.0 1457 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2163:72: 12671 continue 1458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2164:72: 12672 continue 1458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2165:72: ixx=0 1458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2166:72: al=0.0 1459 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2167:72: if(nonzero(no*nc,g) .ne. 0)goto 12731 1460 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2168:72: b(0,:)=b(0,:)-sum(b(0,:))/nc 1460 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2169:72: sxp=0.0 1461 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2170:72: 12740 do 12741 ic=1,nc 1461 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2171:72: q(:,ic)=exp(b(0,ic)) 1461 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2172:72: sxp=sxp+q(:,ic) 1461 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2173:72: 12741 continue 1462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2174:72: 12742 continue 1462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2175:72: goto 12751 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2176:72: 12731 continue 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2177:72: 12760 do 12761 i=1,no 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2178:72: g(i,:)=g(i,:)-sum(g(i,:))/nc 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2179:72: 12761 continue 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2180:72: 12762 continue 1463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2181:72: sxp=0.0 1464 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2182:72: call kazero(nc,no,y,g,w,b(0,:),jerr) 1464 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2183:72: if(jerr.ne.0) return 1465 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2184:72: dev1=0.0 1466 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2185:72: 12770 do 12771 ic=1,nc 1466 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2186:72: q(:,ic)=b(0,ic)+g(:,ic) 1467 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2187:72: dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1468 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2188:72: q(:,ic)=exp(q(:,ic)) 1468 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2189:72: sxp=sxp+q(:,ic) 1469 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2190:72: 12771 continue 1470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2191:72: 12772 continue 1470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2192:72: sxpl=w*log(sxp) 1470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2193:72: 12780 do 12781 ic=1,nc 1470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2194:72: dev1=dev1+dot_product(y(:,ic),sxpl) 1470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2195:72: 12781 continue 1471 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2196:72: 12782 continue 1471 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2197:72: 12751 continue 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2198:72: 12721 continue 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2199:72: 12790 do 12791 ic=1,nc 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2200:72: 12800 do 12801 i=1,no 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2201:72: 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: 12801 continue 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2203:72: 12802 continue 1472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2204:72: 12791 continue 1473 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2205:72: 12792 continue 1473 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2206:72: dev0=dev0+dev1 1474 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2207:72: if(kopt .le. 0)goto 12821 1475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2208:72: if(isd .le. 0)goto 12841 1475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2209:72: xv=0.25 1475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2210:72: goto 12851 1476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2211:72: 12841 continue 1476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2212:72: 12860 do 12861 j=1,ni 1476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2213:72: 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: 12861 continue 1476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2215:72: 12862 continue 1476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2216:72: 12851 continue 1477 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2217:72: 12831 continue 1477 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2218:72: 12821 continue 1478 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2219:72: if(flmin .ge. 1.0)goto 12881 1478 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2220:72: eqs=max(eps,flmin) 1478 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2221:72: alf=eqs**(1.0/(nlam-1)) 1478 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2222:72: 12881 continue 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2223:72: m=0 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2224:72: mm=0 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2225:72: nin=0 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2226:72: nlp=0 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2227:72: mnl=min(mnlam,nlam) 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2228:72: bs=0.0 1479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2229:72: shr=shri*dev0 1480 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2230:72: ga=0.0 1481 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2231:72: 12890 do 12891 ic=1,nc 1481 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2232:72: r=w*(y(:,ic)-q(:,ic)/sxp) 1482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2233:72: 12900 do 12901 j=1,ni 1482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2234:72: 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: 12901 continue 1483 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2236:72: 12902 continue 1483 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2237:72: 12891 continue 1484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2238:72: 12892 continue 1484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2239:72: 12910 do 12911 ilm=1,nlam 1484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2240:72: al0=al 1485 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2241:72: if(flmin .lt. 1.0)goto 12931 1485 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2242:72: al=ulam(ilm) 1485 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2243:72: goto 12921 1486 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2244:72: 12931 if(ilm .le. 2)goto 12941 1486 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2245:72: al=al*alf 1486 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2246:72: goto 12921 1487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2247:72: 12941 if(ilm .ne. 1)goto 12951 1487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2248:72: al=big 1487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2249:72: goto 12961 1488 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2250:72: 12951 continue 1488 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2251:72: al0=0.0 1489 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2252:72: 12970 do 12971 j=1,ni 1489 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2253:72: if(ju(j).eq.0)goto 12971 1489 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2254:72: 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: 12971 continue 1490 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2256:72: 12972 continue 1490 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2257:72: al0=al0/max(bta,1.0e-3) 1490 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2258:72: al=alf*al0 1491 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2259:72: 12961 continue 1492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2260:72: 12921 continue 1492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2261:72: al2=al*omb 1492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2262:72: al1=al*bta 1492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2263:72: tlam=bta*(2.0*al-al0) 1493 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2264:72: 12980 do 12981 k=1,ni 1493 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2265:72: if(ixx(k).eq.1)goto 12981 1493 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2266:72: if(ju(k).eq.0)goto 12981 1494 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2267:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1495 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2268:72: 12981 continue 1496 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2269:72: 12982 continue 1496 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2270:72: 10680 continue 1497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2271:72: 12990 continue 1497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2272:72: 12991 continue 1497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2273:72: ix=0 1497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2274:72: jx=ix 1497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2275:72: ig=0 1498 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2276:72: 13000 do 13001 ic=1,nc 1498 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2277:72: bs(0,ic)=b(0,ic) 1499 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2278:72: 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: xmz=0.0 1501 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2280:72: 13010 do 13011 i=1,no 1501 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2281:72: pic=q(i,ic)/sxp(i) 1502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2282:72: if(pic .ge. pfm)goto 13031 1502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2283:72: pic=0.0 1502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2284:72: v(i)=0.0 1502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2285:72: goto 13021 1503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2286:72: 13031 if(pic .le. pfx)goto 13041 1503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2287:72: pic=1.0 1503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2288:72: v(i)=0.0 1503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2289:72: goto 13051 1504 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2290:72: 13041 continue 1504 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2291:72: v(i)=w(i)*pic*(1.0-pic) 1504 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2292:72: xmz=xmz+v(i) 1504 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2293:72: 13051 continue 1505 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2294:72: 13021 continue 1505 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2295:72: r(i)=w(i)*(y(i,ic)-pic) 1506 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2296:72: 13011 continue 1507 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2297:72: 13012 continue 1507 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2298:72: if(xmz.le.vmin)goto 13001 1507 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2299:72: ig=1 1508 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2300:72: if(kopt .ne. 0)goto 13071 1509 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2301:72: 13080 do 13081 j=1,ni 1509 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2302:72: 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: 13081 continue 1510 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2304:72: 13082 continue 1510 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2305:72: 13071 continue 1511 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2306:72: 13090 continue 1511 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2307:72: 13091 continue 1511 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2308:72: nlp=nlp+1 1511 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2309:72: dlx=0.0 1512 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2310:72: 13100 do 13101 k=1,ni 1512 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2311:72: if(ixx(k).eq.0)goto 13101 1513 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2312:72: bk=b(k,ic) 1513 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2313:72: gk=dot_product(r,x(:,k)) 1514 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2314:72: u=gk+xv(k,ic)*b(k,ic) 1514 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2315:72: au=abs(u)-vp(k)*al1 1515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2316:72: if(au .gt. 0.0)goto 13121 1515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2317:72: b(k,ic)=0.0 1515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2318:72: goto 13131 1516 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2319:72: 13121 continue 1516 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2320:72: 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: 13131 continue 1517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2322:72: 13111 continue 1517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2323:72: d=b(k,ic)-bk 1517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2324:72: if(abs(d).le.0.0)goto 13101 1518 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2325:72: dlx=max(dlx,xv(k,ic)*d**2) 1518 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2326:72: r=r-d*v*x(:,k) 1519 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2327:72: if(mm(k) .ne. 0)goto 13151 1519 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2328:72: nin=nin+1 1520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2329:72: if(nin .le. nx)goto 13171 1520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2330:72: jx=1 1520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2331:72: goto 13102 1520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2332:72: 13171 continue 1521 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2333:72: mm(k)=nin 1521 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2334:72: m(nin)=k 1522 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2335:72: 13151 continue 1523 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2336:72: 13101 continue 1524 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2337:72: 13102 continue 1524 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2338:72: if(jx.gt.0)goto 13092 1525 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2339:72: d=sum(r)/xmz 1526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2340:72: if(d .eq. 0.0)goto 13191 1526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2341:72: b(0,ic)=b(0,ic)+d 1526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2342:72: dlx=max(dlx,xmz*d**2) 1526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2343:72: r=r-d*v 1526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2344:72: 13191 continue 1527 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2345:72: if(dlx.lt.shr)goto 13092 1528 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2346:72: if(nlp .le. maxit)goto 13211 1528 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2347:72: jerr=-ilm 1528 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2348:72: return 1528 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2349:72: 13211 continue 1529 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2350:72: 13220 continue 1529 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2351:72: 13221 continue 1529 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2352:72: nlp=nlp+1 1529 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2353:72: dlx=0.0 1530 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2354:72: 13230 do 13231 l=1,nin 1530 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2355:72: k=m(l) 1530 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2356:72: bk=b(k,ic) 1531 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2357:72: gk=dot_product(r,x(:,k)) 1532 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2358:72: u=gk+xv(k,ic)*b(k,ic) 1532 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2359:72: au=abs(u)-vp(k)*al1 1533 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2360:72: if(au .gt. 0.0)goto 13251 1533 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2361:72: b(k,ic)=0.0 1533 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2362:72: goto 13261 1534 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2363:72: 13251 continue 1534 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2364:72: 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: 13261 continue 1535 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2366:72: 13241 continue 1535 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2367:72: d=b(k,ic)-bk 1535 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2368:72: if(abs(d).le.0.0)goto 13231 1536 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2369:72: dlx=max(dlx,xv(k,ic)*d**2) 1536 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2370:72: r=r-d*v*x(:,k) 1537 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2371:72: 13231 continue 1538 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2372:72: 13232 continue 1538 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2373:72: d=sum(r)/xmz 1539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2374:72: if(d .eq. 0.0)goto 13281 1539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2375:72: b(0,ic)=b(0,ic)+d 1540 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2376:72: dlx=max(dlx,xmz*d**2) 1540 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2377:72: r=r-d*v 1541 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2378:72: 13281 continue 1542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2379:72: if(dlx.lt.shr)goto 13222 1542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2380:72: if(nlp .le. maxit)goto 13301 1542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2381:72: jerr=-ilm 1542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2382:72: return 1542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2383:72: 13301 continue 1543 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2384:72: goto 13221 1544 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2385:72: 13222 continue 1544 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2386:72: goto 13091 1545 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2387:72: 13092 continue 1545 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2388:72: if(jx.gt.0)goto 13002 1546 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2389:72: 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: if(ix .ne. 0)goto 13321 1548 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2391:72: 13330 do 13331 j=1,nin 1548 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2392:72: k=m(j) 1549 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2393:72: 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: ix=1 1549 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2395:72: goto 13332 1549 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2396:72: 13351 continue 1550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2397:72: 13331 continue 1551 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2398:72: 13332 continue 1551 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2399:72: 13321 continue 1552 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2400:72: 13360 do 13361 i=1,no 1552 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2401:72: fi=b(0,ic)+g(i,ic) 1554 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2402:72: 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: fi=min(max(exmn,fi),exmx) 1555 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2404:72: sxp(i)=sxp(i)-q(i,ic) 1556 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2405:72: 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: sxp(i)=sxp(i)+q(i,ic) 1558 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2407:72: 13361 continue 1559 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2408:72: 13362 continue 1559 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2409:72: 13001 continue 1560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2410:72: 13002 continue 1560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2411:72: s=-sum(b(0,:))/nc 1560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2412:72: b(0,:)=b(0,:)+s 1560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2413:72: di=s 1561 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2414:72: 13370 do 13371 j=1,nin 1561 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2415:72: l=m(j) 1562 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2416:72: if(vp(l) .gt. 0.0)goto 13391 1562 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2417:72: s=sum(b(l,:))/nc 1562 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2418:72: goto 13401 1563 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2419:72: 13391 continue 1563 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2420:72: s=elc(parm,nc,b(l,:),is) 1563 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2421:72: 13401 continue 1564 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2422:72: 13381 continue 1564 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2423:72: b(l,:)=b(l,:)-s 1564 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2424:72: di=di-s*x(:,l) 1565 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2425:72: 13371 continue 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2426:72: 13372 continue 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2427:72: di=exp(di) 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2428:72: sxp=sxp*di 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2429:72: 13410 do 13411 ic=1,nc 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2430:72: q(:,ic)=q(:,ic)*di 1566 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2431:72: 13411 continue 1567 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2432:72: 13412 continue 1567 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2433:72: if(jx.gt.0)goto 12992 1567 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2434:72: if(ig.eq.0)goto 12992 1568 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2435:72: if(ix .ne. 0)goto 13431 1569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2436:72: 13440 do 13441 k=1,ni 1569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2437:72: if(ixx(k).eq.1)goto 13441 1569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2438:72: if(ju(k).eq.0)goto 13441 1569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2439:72: ga(k)=0.0 1569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2440:72: 13441 continue 1570 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2441:72: 13442 continue 1570 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2442:72: 13450 do 13451 ic=1,nc 1570 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2443:72: r=w*(y(:,ic)-q(:,ic)/sxp) 1571 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2444:72: 13460 do 13461 k=1,ni 1571 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2445:72: if(ixx(k).eq.1)goto 13461 1571 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2446:72: if(ju(k).eq.0)goto 13461 1572 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2447:72: ga(k)=max(ga(k),abs(dot_product(r,x(:,k)))) 1573 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2448:72: 13461 continue 1574 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2449:72: 13462 continue 1574 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2450:72: 13451 continue 1575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2451:72: 13452 continue 1575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2452:72: 13470 do 13471 k=1,ni 1575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2453:72: if(ixx(k).eq.1)goto 13471 1575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2454:72: if(ju(k).eq.0)goto 13471 1576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2455:72: if(ga(k) .le. al1*vp(k))goto 13491 1576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2456:72: ixx(k)=1 1576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2457:72: ix=1 1576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2458:72: 13491 continue 1577 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2459:72: 13471 continue 1578 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2460:72: 13472 continue 1578 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2461:72: if(ix.eq.1) go to 10680 1579 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2462:72: goto 12992 1580 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2463:72: 13431 continue 1581 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2464:72: goto 12991 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2465:72: 12992 continue 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2466:72: if(jx .le. 0)goto 13511 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2467:72: jerr=-10000-ilm 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2468:72: goto 12912 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2469:72: 13511 continue 1582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2470:72: devi=0.0 1583 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2471:72: 13520 do 13521 ic=1,nc 1584 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2472:72: 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: a0(ic,ilm)=b(0,ic) 1585 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2474:72: 13530 do 13531 i=1,no 1585 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2475:72: if(y(i,ic).le.0.0)goto 13531 1586 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2476:72: 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: 13531 continue 1588 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2478:72: 13532 continue 1588 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2479:72: 13521 continue 1589 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2480:72: 13522 continue 1589 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2481:72: kin(ilm)=nin 1589 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2482:72: alm(ilm)=al 1589 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2483:72: lmu=ilm 1590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2484:72: dev(ilm)=(dev1-devi)/dev0 1590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2485:72: if(ig.eq.0)goto 12912 1591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2486:72: if(ilm.lt.mnl)goto 12911 1591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2487:72: if(flmin.ge.1.0)goto 12911 1592 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2488:72: 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: if(dev(ilm).gt.devmax)goto 12912 1593 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2490:72: if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912 1594 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2491:72: 12911 continue 1595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2492:72: 12912 continue 1595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2493:72: g=log(q) 1595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2494:72: 13540 do 13541 i=1,no 1595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2495:72: g(i,:)=g(i,:)-sum(g(i,:))/nc 1595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2496:72: 13541 continue 1596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2497:72: 13542 continue 1596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2498:72: 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: return 1598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2500:72: end 1599 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2501:72: subroutine kazero(kk,n,y,g,q,az,jerr) 1600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2502:72: parameter(eps=1.0e-7) 1601 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2503:72: real y(n,kk),g(n,kk),q(n),az(kk) 1602 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2507:72: allocate(s(1:n),stat=ierr) 1607 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2508:72: jerr=jerr+ierr 1608 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2509:72: if(jerr.ne.0) return 1609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2510:72: az=0.0 1609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2511:72: e=exp(g) 1609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2512:72: 13550 do 13551 i=1,n 1609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2513:72: s(i)=sum(e(i,:)) 1609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2514:72: 13551 continue 1610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2515:72: 13552 continue 1610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2516:72: 13560 continue 1610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2517:72: 13561 continue 1610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2518:72: dm=0.0 1611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2519:72: 13570 do 13571 k=1,kk 1611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2520:72: t=0.0 1611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2521:72: u=t 1612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2522:72: 13580 do 13581 i=1,n 1612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2523:72: pik=e(i,k)/s(i) 1613 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2524:72: t=t+q(i)*(y(i,k)-pik) 1613 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2525:72: u=u+q(i)*pik*(1.0-pik) 1614 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2526:72: 13581 continue 1615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2527:72: 13582 continue 1615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2528:72: d=t/u 1615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2529:72: az(k)=az(k)+d 1615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2530:72: ed=exp(d) 1615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2531:72: dm=max(dm,abs(d)) 1616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2532:72: 13590 do 13591 i=1,n 1616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2533:72: z=e(i,k) 1616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2534:72: e(i,k)=z*ed 1616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2535:72: s(i)=s(i)-z+e(i,k) 1616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2536:72: 13591 continue 1617 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2537:72: 13592 continue 1617 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2538:72: 13571 continue 1618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2539:72: 13572 continue 1618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2540:72: if(dm.lt.eps)goto 13562 1618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2541:72: goto 13561 1619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2542:72: 13562 continue 1619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2543:72: az=az-sum(az)/kk 1620 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2544:72: deallocate(e,s) 1621 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2545:72: return 1622 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2546:72: end 1623 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2547:72: function elc(parm,n,a,m) 1624 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2548:72: real a(n) 1624 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2549:72: integer m(n) 1625 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2550:72: fn=n 1625 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2551:72: am=sum(a)/fn 1626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2552:72: if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611 1626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2553:72: elc=am 1626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2554:72: return 1626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2555:72: 13611 continue 1627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2556:72: 13620 do 13621 i=1,n 1627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2557:72: m(i)=i 1627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2558:72: 13621 continue 1627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2559:72: 13622 continue 1627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2560:72: call psort7(a,m,1,n) 1628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2561:72: if(a(m(1)) .ne. a(m(n)))goto 13641 1628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2562:72: elc=a(1) 1628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2563:72: return 1628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2564:72: 13641 continue 1629 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2565:72: if(mod(n,2) .ne. 1)goto 13661 1629 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2566:72: ad=a(m(n/2+1)) 1629 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2567:72: goto 13671 1630 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2568:72: 13661 continue 1630 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2569:72: 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: 13671 continue 1631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2571:72: 13651 continue 1631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2572:72: if(parm .ne. 1.0)goto 13691 1631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2573:72: elc=ad 1631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2574:72: return 1631 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2575:72: 13691 continue 1632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2576:72: b1=min(am,ad) 1632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2577:72: b2=max(am,ad) 1632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2578:72: k2=1 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2579:72: 13700 continue 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2580:72: 13701 if(a(m(k2)).gt.b1)goto 13702 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2581:72: k2=k2+1 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2582:72: goto 13701 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2583:72: 13702 continue 1633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2584:72: k1=k2-1 1634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2585:72: 13710 continue 1634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2586:72: 13711 if(a(m(k2)).ge.b2)goto 13712 1634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2587:72: k2=k2+1 1634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2588:72: goto 13711 1635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2589:72: 13712 continue 1635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2590:72: r=parm/((1.0-parm)*fn) 1635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2591:72: is=0 1635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2592:72: sm=n-2*(k1-1) 1636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2593:72: 13720 do 13721 k=k1,k2-1 1636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2594:72: sm=sm-2.0 1636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2595:72: s=r*sm+am 1637 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2596:72: 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: is=k 1637 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2598:72: goto 13722 1637 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2599:72: 13741 continue 1638 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2600:72: 13721 continue 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2601:72: 13722 continue 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2602:72: if(is .eq. 0)goto 13761 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2603:72: elc=s 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2604:72: return 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2605:72: 13761 continue 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2606:72: r2=2.0*r 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2607:72: s1=a(m(k1)) 1639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2608:72: am2=2.0*am 1640 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2609:72: cri=r2*sum(abs(a-s1))+s1*(s1-am2) 1640 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2610:72: elc=s1 1641 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2611:72: 13770 do 13771 k=k1+1,k2 1641 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2612:72: s=a(m(k)) 1641 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2613:72: if(s.eq.s1)goto 13771 1642 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2614:72: c=r2*sum(abs(a-s))+s*(s-am2) 1643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2615:72: if(c .ge. cri)goto 13791 1643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2616:72: cri=c 1643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2617:72: elc=s 1643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2618:72: 13791 continue 1643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2619:72: s1=s 1644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2620:72: 13771 continue 1645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2621:72: 13772 continue 1645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2622:72: return 1646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2623:72: end 1647 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2624:72: function nintot(ni,nx,nc,a,m,nin,is) 1648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2625:72: real a(nx,nc) 1648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2626:72: integer m(nx),is(ni) 1649 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2627:72: is=0 1649 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2628:72: nintot=0 1650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2629:72: 13800 do 13801 ic=1,nc 1650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2630:72: 13810 do 13811 j=1,nin 1650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2631:72: k=m(j) 1650 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2632:72: if(is(k).ne.0)goto 13811 1651 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2633:72: if(a(j,ic).eq.0.0)goto 13811 1651 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2634:72: is(k)=k 1651 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2635:72: nintot=nintot+1 1652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2636:72: 13811 continue 1652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2637:72: 13812 continue 1652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2638:72: 13801 continue 1653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2639:72: 13802 continue 1653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2640:72: return 1654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2641:72: end 1655 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2642:72: subroutine luncomp(ni,nx,nc,ca,ia,nin,a) 1656 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2643:72: real ca(nx,nc),a(ni,nc) 1656 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2644:72: integer ia(nx) 1657 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2645:72: a=0.0 1658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2646:72: 13820 do 13821 ic=1,nc 1658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2647:72: 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: 13821 continue 1659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2649:72: 13822 continue 1659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2650:72: return 1660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2651:72: end 1661 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2652:72: subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans) 1662 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2653:72: real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt) 1662 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2654:72: integer ia(nx) 1663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2655:72: 13830 do 13831 i=1,nt 1663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2656:72: 13840 do 13841 ic=1,nc 1663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2657:72: ans(ic,i)=a0(ic) 1665 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2658:72: 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: 13841 continue 1666 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2661:72: 13842 continue 1666 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2662:72: 13831 continue 1667 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2663:72: 13832 continue 1667 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2664:72: return 1668 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2665:72: end 1669 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2666:72: 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: 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: 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: integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1674 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2674:72: if(maxval(vp) .gt. 0.0)goto 13861 1678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2675:72: jerr=10000 1678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2676:72: return 1678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2677:72: 13861 continue 1679 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2678:72: allocate(ww(1:no),stat=jerr) 1680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2679:72: allocate(ju(1:ni),stat=ierr) 1680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2680:72: jerr=jerr+ierr 1681 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2681:72: allocate(vq(1:ni),stat=ierr) 1681 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2682:72: jerr=jerr+ierr 1682 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2683:72: allocate(xm(1:ni),stat=ierr) 1682 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2684:72: jerr=jerr+ierr 1683 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2685:72: allocate(xs(1:ni),stat=ierr) 1683 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2686:72: jerr=jerr+ierr 1684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2687:72: if(jerr.ne.0) return 1685 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2688:72: call spchkvars(no,ni,x,ix,ju) 1686 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2689:72: 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: if(maxval(ju) .gt. 0)goto 13881 1687 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2691:72: jerr=7777 1687 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2692:72: return 1687 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2693:72: 13881 continue 1688 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2694:72: vq=max(0.0,vp) 1688 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2695:72: vq=vq*ni/sum(vq) 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2696:72: 13890 do 13891 i=1,no 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2697:72: ww(i)=sum(y(i,:)) 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2698:72: y(i,:)=y(i,:)/ww(i) 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2699:72: 13891 continue 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2700:72: 13892 continue 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2701:72: sw=sum(ww) 1689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2702:72: ww=ww/sw 1690 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2703:72: 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: if(nc .ne. 1)goto 13911 1692 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2705:72: 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: goto 13921 1695 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2709:72: 13911 continue 1696 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2710:72: 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: 13921 continue 1699 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2714:72: 13901 continue 1699 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2715:72: if(jerr.gt.0) return 1699 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2716:72: dev0=2.0*sw*dev0 1700 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2717:72: 13930 do 13931 k=1,lmu 1700 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2718:72: nk=nin(k) 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2719:72: 13940 do 13941 ic=1,nc 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2720:72: if(isd .le. 0)goto 13961 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2721:72: 13970 do 13971 l=1,nk 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2722:72: ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2723:72: 13971 continue 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2724:72: 13972 continue 1701 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2725:72: 13961 continue 1702 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2726:72: 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: 13941 continue 1704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2728:72: 13942 continue 1704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2729:72: 13931 continue 1705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2730:72: 13932 continue 1705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2731:72: deallocate(ww,ju,vq,xm,xs) 1706 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2732:72: return 1707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2733:72: end 1708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2734:72: 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: real x(*),w(no),xm(ni),xs(ni) 1709 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2736:72: integer ix(*),jx(*),ju(ni) 1710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2737:72: 13980 do 13981 j=1,ni 1710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2738:72: if(ju(j).eq.0)goto 13981 1710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2739:72: jb=ix(j) 1710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2740:72: je=ix(j+1)-1 1711 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2741:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1712 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2742:72: 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: 13981 continue 1714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2745:72: 13982 continue 1714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2746:72: if(isd.eq.0) xs=1.0 1715 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2747:72: return 1716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2748:72: end 1717 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2749:72: 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: 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: 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: real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1723 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2756:72: real xb(ni),xs(ni) 1723 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2757:72: integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1724 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2760:72: allocate(b(0:ni),stat=jerr) 1729 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2761:72: allocate(xm(0:ni),stat=ierr) 1729 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2762:72: jerr=jerr+ierr 1730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2763:72: allocate(xv(1:ni),stat=ierr) 1730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2764:72: jerr=jerr+ierr 1731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2765:72: allocate(bs(0:ni),stat=ierr) 1731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2766:72: jerr=jerr+ierr 1732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2767:72: allocate(ga(1:ni),stat=ierr) 1732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2768:72: jerr=jerr+ierr 1733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2769:72: allocate(mm(1:ni),stat=ierr) 1733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2770:72: jerr=jerr+ierr 1734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2771:72: allocate(ixx(1:ni),stat=ierr) 1734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2772:72: jerr=jerr+ierr 1735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2773:72: allocate(q(1:no),stat=ierr) 1735 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2774:72: jerr=jerr+ierr 1736 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2775:72: allocate(r(1:no),stat=ierr) 1736 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2776:72: jerr=jerr+ierr 1737 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2777:72: allocate(v(1:no),stat=ierr) 1737 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2778:72: jerr=jerr+ierr 1738 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2779:72: allocate(sc(1:no),stat=ierr) 1738 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2780:72: jerr=jerr+ierr 1739 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2781:72: if(jerr.ne.0) return 1740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2782:72: fmax=log(1.0/pmin-1.0) 1740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2783:72: fmin=-fmax 1740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2784:72: vmin=(1.0+pmin)*pmin*(1.0-pmin) 1741 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2785:72: bta=parm 1741 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2786:72: omb=1.0-bta 1742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2787:72: q0=dot_product(w,y) 1742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2788:72: if(q0 .gt. pmin)goto 14001 1742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2789:72: jerr=8001 1742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2790:72: return 1742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2791:72: 14001 continue 1743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2792:72: if(q0 .lt. 1.0-pmin)goto 14021 1743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2793:72: jerr=9001 1743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2794:72: return 1743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2795:72: 14021 continue 1743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2796:72: bz=log(q0/(1.0-q0)) 1744 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2797:72: if(nonzero(no,g) .ne. 0)goto 14041 1744 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2798:72: vi=q0*(1.0-q0) 1744 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2799:72: b(0)=bz 1744 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2800:72: v=vi*w 1745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2801:72: r=w*(y-q0) 1745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2802:72: q=q0 1745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2803:72: xm(0)=vi 1745 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2804:72: dev1=-(bz*q0+log(1.0-q0)) 1746 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2805:72: goto 14051 1747 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2806:72: 14041 continue 1747 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2807:72: b(0)=azero(no,y,g,w,jerr) 1747 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2808:72: if(jerr.ne.0) return 1748 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2809:72: q=1.0/(1.0+exp(-b(0)-g)) 1748 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2810:72: v=w*q*(1.0-q) 1748 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2811:72: r=w*(y-q) 1748 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2812:72: xm(0)=sum(v) 1749 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2813:72: 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: 14051 continue 1751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2815:72: 14031 continue 1751 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2816:72: if(kopt .le. 0)goto 14071 1752 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2817:72: if(isd .le. 0)goto 14091 1752 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2818:72: xv=0.25 1752 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2819:72: goto 14101 1753 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2820:72: 14091 continue 1754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2821:72: 14110 do 14111 j=1,ni 1754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2822:72: if(ju(j).eq.0)goto 14111 1754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2823:72: jb=ix(j) 1754 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2824:72: je=ix(j+1)-1 1755 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2825:72: 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: 14111 continue 1757 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2827:72: 14112 continue 1757 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2828:72: 14101 continue 1758 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2829:72: 14081 continue 1758 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2830:72: 14071 continue 1759 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2831:72: b(1:ni)=0.0 1759 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2832:72: dev0=dev1 1760 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2833:72: 14120 do 14121 i=1,no 1760 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2834:72: 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: 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: 14121 continue 1763 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2837:72: 14122 continue 1763 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2838:72: if(flmin .ge. 1.0)goto 14141 1763 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2839:72: eqs=max(eps,flmin) 1763 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2840:72: alf=eqs**(1.0/(nlam-1)) 1763 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2841:72: 14141 continue 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2842:72: m=0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2843:72: mm=0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2844:72: nin=0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2845:72: o=0.0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2846:72: svr=o 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2847:72: mnl=min(mnlam,nlam) 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2848:72: bs=0.0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2849:72: nlp=0 1764 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2850:72: nin=nlp 1765 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2851:72: shr=shri*dev0 1765 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2852:72: al=0.0 1765 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2853:72: ixx=0 1766 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2854:72: 14150 do 14151 j=1,ni 1766 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2855:72: if(ju(j).eq.0)goto 14151 1767 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2856:72: jb=ix(j) 1767 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2857:72: je=ix(j+1)-1 1767 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2858:72: jn=ix(j+1)-ix(j) 1768 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2859:72: 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: gj=dot_product(sc(1:jn),x(jb:je)) 1770 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2861:72: ga(j)=abs((gj-svr*xb(j))/xs(j)) 1771 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2862:72: 14151 continue 1772 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2863:72: 14152 continue 1772 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2864:72: 14160 do 14161 ilm=1,nlam 1772 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2865:72: al0=al 1773 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2866:72: if(flmin .lt. 1.0)goto 14181 1773 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2867:72: al=ulam(ilm) 1773 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2868:72: goto 14171 1774 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2869:72: 14181 if(ilm .le. 2)goto 14191 1774 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2870:72: al=al*alf 1774 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2871:72: goto 14171 1775 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2872:72: 14191 if(ilm .ne. 1)goto 14201 1775 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2873:72: al=big 1775 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2874:72: goto 14211 1776 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2875:72: 14201 continue 1776 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2876:72: al0=0.0 1777 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2877:72: 14220 do 14221 j=1,ni 1777 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2878:72: if(ju(j).eq.0)goto 14221 1777 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2879:72: 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: 14221 continue 1778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2881:72: 14222 continue 1778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2882:72: al0=al0/max(bta,1.0e-3) 1778 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2883:72: al=alf*al0 1779 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2884:72: 14211 continue 1780 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2885:72: 14171 continue 1780 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2886:72: al2=al*omb 1780 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2887:72: al1=al*bta 1780 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2888:72: tlam=bta*(2.0*al-al0) 1781 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2889:72: 14230 do 14231 k=1,ni 1781 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2890:72: if(ixx(k).eq.1)goto 14231 1781 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2891:72: if(ju(k).eq.0)goto 14231 1782 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2892:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1783 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2893:72: 14231 continue 1784 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2894:72: 14232 continue 1784 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2895:72: 10680 continue 1785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2896:72: 14240 continue 1785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2897:72: 14241 continue 1785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2898:72: bs(0)=b(0) 1785 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2899:72: 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: 14250 do 14251 j=1,ni 1786 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2901:72: if(ixx(j).eq.0)goto 14251 1787 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2902:72: jb=ix(j) 1787 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2903:72: je=ix(j+1)-1 1787 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2904:72: jn=ix(j+1)-ix(j) 1788 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2905:72: sc(1:jn)=v(jx(jb:je)) 1789 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2906:72: xm(j)=dot_product(sc(1:jn),x(jb:je)) 1790 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2907:72: if(kopt .ne. 0)goto 14271 1791 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2908:72: xv(j)=dot_product(sc(1:jn),x(jb:je)**2) 1792 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2909:72: 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: 14271 continue 1794 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2911:72: 14251 continue 1795 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2912:72: 14252 continue 1795 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2913:72: 14280 continue 1795 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2914:72: 14281 continue 1795 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2915:72: nlp=nlp+1 1795 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2916:72: dlx=0.0 1796 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2917:72: 14290 do 14291 k=1,ni 1796 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2918:72: if(ixx(k).eq.0)goto 14291 1797 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2919:72: jb=ix(k) 1797 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2920:72: je=ix(k+1)-1 1797 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2921:72: jn=ix(k+1)-ix(k) 1797 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2922:72: bk=b(k) 1798 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2923:72: 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: gk=dot_product(sc(1:jn),x(jb:je)) 1800 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2925:72: gk=(gk-svr*xb(k))/xs(k) 1801 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2926:72: u=gk+xv(k)*b(k) 1801 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2927:72: au=abs(u)-vp(k)*al1 1802 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2928:72: if(au .gt. 0.0)goto 14311 1802 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2929:72: b(k)=0.0 1802 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2930:72: goto 14321 1803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2931:72: 14311 continue 1803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2932:72: b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1803 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2933:72: 14321 continue 1804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2934:72: 14301 continue 1804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2935:72: d=b(k)-bk 1804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2936:72: if(abs(d).le.0.0)goto 14291 1804 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2937:72: dlx=max(dlx,xv(k)*d**2) 1805 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2938:72: if(mm(k) .ne. 0)goto 14341 1805 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2939:72: nin=nin+1 1805 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2940:72: if(nin.gt.nx)goto 14292 1806 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2941:72: mm(k)=nin 1806 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2942:72: m(nin)=k 1806 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2943:72: sc(1:jn)=v(jx(jb:je)) 1807 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2944:72: xm(k)=dot_product(sc(1:jn),x(jb:je)) 1808 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2945:72: 14341 continue 1809 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2946:72: 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: o=o+d*(xb(k)/xs(k)) 1811 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2948:72: svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1812 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2949:72: 14291 continue 1813 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2950:72: 14292 continue 1813 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2951:72: if(nin.gt.nx)goto 14282 1814 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2952:72: d=svr/xm(0) 1815 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2953:72: if(d .eq. 0.0)goto 14361 1815 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2954:72: b(0)=b(0)+d 1815 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2955:72: dlx=max(dlx,xm(0)*d**2) 1815 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2956:72: r=r-d*v 1815 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2957:72: 14361 continue 1816 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2958:72: svr=svr-d*xm(0) 1816 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2959:72: if(dlx.lt.shr)goto 14282 1817 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2960:72: if(nlp .le. maxit)goto 14381 1817 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2961:72: jerr=-ilm 1817 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2962:72: return 1817 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2963:72: 14381 continue 1818 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2964:72: 14390 continue 1818 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2965:72: 14391 continue 1818 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2966:72: nlp=nlp+1 1818 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2967:72: dlx=0.0 1819 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2968:72: 14400 do 14401 l=1,nin 1819 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2969:72: k=m(l) 1819 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2970:72: jb=ix(k) 1819 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2971:72: je=ix(k+1)-1 1820 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2972:72: jn=ix(k+1)-ix(k) 1820 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2973:72: bk=b(k) 1821 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2974:72: 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: gk=dot_product(sc(1:jn),x(jb:je)) 1823 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2976:72: gk=(gk-svr*xb(k))/xs(k) 1824 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2977:72: u=gk+xv(k)*b(k) 1824 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2978:72: au=abs(u)-vp(k)*al1 1825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2979:72: if(au .gt. 0.0)goto 14421 1825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2980:72: b(k)=0.0 1825 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2981:72: goto 14431 1826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2982:72: 14421 continue 1826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2983:72: b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1826 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2984:72: 14431 continue 1827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2985:72: 14411 continue 1827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2986:72: d=b(k)-bk 1827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2987:72: if(abs(d).le.0.0)goto 14401 1827 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2988:72: dlx=max(dlx,xv(k)*d**2) 1828 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2989:72: 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: o=o+d*(xb(k)/xs(k)) 1830 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2991:72: svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1831 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2992:72: 14401 continue 1832 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2993:72: 14402 continue 1832 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2994:72: d=svr/xm(0) 1833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2995:72: if(d .eq. 0.0)goto 14451 1833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2996:72: b(0)=b(0)+d 1833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2997:72: dlx=max(dlx,xm(0)*d**2) 1833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2998:72: r=r-d*v 1833 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2999:72: 14451 continue 1834 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3000:72: svr=svr-d*xm(0) 1834 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3001:72: if(dlx.lt.shr)goto 14392 1835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3002:72: if(nlp .le. maxit)goto 14471 1835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3003:72: jerr=-ilm 1835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3004:72: return 1835 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3005:72: 14471 continue 1836 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3006:72: goto 14391 1837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3007:72: 14392 continue 1837 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3008:72: goto 14281 1838 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3009:72: 14282 continue 1838 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3010:72: if(nin.gt.nx)goto 14242 1839 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3011:72: sc=b(0) 1839 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3012:72: b0=0.0 1840 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3013:72: 14480 do 14481 j=1,nin 1840 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3014:72: l=m(j) 1840 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3015:72: jb=ix(l) 1840 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3016:72: je=ix(l+1)-1 1841 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3017:72: 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: b0=b0-b(l)*xb(l)/xs(l) 1843 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3019:72: 14481 continue 1844 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3020:72: 14482 continue 1844 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3021:72: sc=sc+b0 1845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3022:72: 14490 do 14491 i=1,no 1845 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3023:72: fi=sc(i)+g(i) 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3024:72: if(fi .ge. fmin)goto 14511 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3025:72: q(i)=0.0 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3026:72: goto 14501 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3027:72: 14511 if(fi .le. fmax)goto 14521 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3028:72: q(i)=1.0 1846 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3029:72: goto 14531 1847 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3030:72: 14521 continue 1847 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3031:72: q(i)=1.0/(1.0+exp(-fi)) 1847 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3032:72: 14531 continue 1848 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3033:72: 14501 continue 1848 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3034:72: 14491 continue 1849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3035:72: 14492 continue 1849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3036:72: v=w*q*(1.0-q) 1849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3037:72: xm(0)=sum(v) 1849 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3038:72: if(xm(0).lt.vmin)goto 14242 1850 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3039:72: r=w*(y-q) 1850 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3040:72: svr=sum(r) 1850 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3041:72: o=0.0 1851 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3042:72: 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: kx=0 1852 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3044:72: 14560 do 14561 j=1,nin 1852 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3045:72: k=m(j) 1853 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3046:72: 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: kx=1 1853 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3048:72: goto 14562 1854 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3049:72: 14561 continue 1855 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3050:72: 14562 continue 1855 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3051:72: if(kx .ne. 0)goto 14581 1856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3052:72: 14590 do 14591 j=1,ni 1856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3053:72: if(ixx(j).eq.1)goto 14591 1856 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3054:72: if(ju(j).eq.0)goto 14591 1857 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3055:72: jb=ix(j) 1857 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3056:72: je=ix(j+1)-1 1857 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3057:72: jn=ix(j+1)-ix(j) 1858 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3058:72: 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: gj=dot_product(sc(1:jn),x(jb:je)) 1860 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3060:72: ga(j)=abs((gj-svr*xb(j))/xs(j)) 1861 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3061:72: if(ga(j) .le. al1*vp(j))goto 14611 1861 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3062:72: ixx(j)=1 1861 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3063:72: kx=1 1861 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3064:72: 14611 continue 1862 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3065:72: 14591 continue 1863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3066:72: 14592 continue 1863 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3067:72: if(kx.eq.1) go to 10680 1864 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3068:72: goto 14242 1865 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3069:72: 14581 continue 1866 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3070:72: 14551 continue 1867 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3071:72: goto 14241 1868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3072:72: 14242 continue 1868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3073:72: if(nin .le. nx)goto 14631 1868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3074:72: jerr=-10000-ilm 1868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3075:72: goto 14162 1868 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3076:72: 14631 continue 1869 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3077:72: 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: kin(ilm)=nin 1870 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3079:72: a0(ilm)=b(0) 1870 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3080:72: alm(ilm)=al 1870 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3081:72: lmu=ilm 1871 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3082:72: devi=dev2(no,w,y,q,pmin) 1872 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3083:72: dev(ilm)=(dev1-devi)/dev0 1873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3084:72: if(ilm.lt.mnl)goto 14161 1873 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3085:72: if(flmin.ge.1.0)goto 14161 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3086:72: me=0 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3087:72: 14640 do 14641 j=1,nin 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3088:72: if(a(j,ilm).ne.0.0) me=me+1 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3089:72: 14641 continue 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3090:72: 14642 continue 1874 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3091:72: if(me.gt.ne)goto 14162 1875 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3092:72: if(dev(ilm).gt.devmax)goto 14162 1875 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3093:72: if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162 1876 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3094:72: if(xm(0).lt.vmin)goto 14162 1877 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3095:72: 14161 continue 1878 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3096:72: 14162 continue 1878 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3097:72: g=log(q/(1.0-q)) 1879 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3098:72: 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: return 1881 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3100:72: end 1882 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3101:72: 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: 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: 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: 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: integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1889 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3118:72: allocate(xm(0:ni),stat=ierr) 1900 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3119:72: jerr=jerr+ierr 1901 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3120:72: allocate(r(1:no),stat=ierr) 1901 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3121:72: jerr=jerr+ierr 1902 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3122:72: allocate(v(1:no),stat=ierr) 1902 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3123:72: jerr=jerr+ierr 1903 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3124:72: allocate(mm(1:ni),stat=ierr) 1903 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3125:72: jerr=jerr+ierr 1904 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3126:72: allocate(ga(1:ni),stat=ierr) 1904 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3127:72: jerr=jerr+ierr 1905 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3128:72: allocate(iy(1:ni),stat=ierr) 1905 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3129:72: jerr=jerr+ierr 1906 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3130:72: allocate(is(1:max(nc,ni)),stat=ierr) 1906 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3131:72: jerr=jerr+ierr 1907 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3132:72: allocate(sxp(1:no),stat=ierr) 1907 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3133:72: jerr=jerr+ierr 1908 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3134:72: allocate(sxpl(1:no),stat=ierr) 1908 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3135:72: jerr=jerr+ierr 1909 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3136:72: allocate(sc(1:no),stat=ierr) 1909 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3137:72: jerr=jerr+ierr 1910 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3138:72: if(jerr.ne.0) return 1911 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3139:72: pmax=1.0-pmin 1911 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3140:72: emin=pmin/pmax 1911 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3141:72: emax=1.0/emin 1912 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3142:72: pfm=(1.0+pmin)*pmin 1912 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3143:72: pfx=(1.0-pmin)*pmax 1912 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3144:72: vmin=pfm*pmax 1913 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3145:72: bta=parm 1913 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3146:72: omb=1.0-bta 1913 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3147:72: dev1=0.0 1913 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3148:72: dev0=0.0 1914 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3149:72: 14650 do 14651 ic=1,nc 1914 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3150:72: q0=dot_product(w,y(:,ic)) 1915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3151:72: if(q0 .gt. pmin)goto 14671 1915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3152:72: jerr =8000+ic 1915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3153:72: return 1915 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3154:72: 14671 continue 1916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3155:72: if(q0 .lt. 1.0-pmin)goto 14691 1916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3156:72: jerr =9000+ic 1916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3157:72: return 1916 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3158:72: 14691 continue 1917 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3159:72: b(1:ni,ic)=0.0 1917 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3160:72: b(0,ic)=log(q0) 1917 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3161:72: dev1=dev1-q0*b(0,ic) 1918 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3162:72: 14651 continue 1919 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3163:72: 14652 continue 1919 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3164:72: iy=0 1919 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3165:72: al=0.0 1920 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3166:72: if(nonzero(no*nc,g) .ne. 0)goto 14711 1921 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3167:72: b(0,:)=b(0,:)-sum(b(0,:))/nc 1921 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3168:72: sxp=0.0 1922 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3169:72: 14720 do 14721 ic=1,nc 1922 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3170:72: q(:,ic)=exp(b(0,ic)) 1922 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3171:72: sxp=sxp+q(:,ic) 1922 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3172:72: 14721 continue 1923 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3173:72: 14722 continue 1923 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3174:72: goto 14731 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3175:72: 14711 continue 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3176:72: 14740 do 14741 i=1,no 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3177:72: g(i,:)=g(i,:)-sum(g(i,:))/nc 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3178:72: 14741 continue 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3179:72: 14742 continue 1924 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3180:72: sxp=0.0 1925 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3181:72: call kazero(nc,no,y,g,w,b(0,:),jerr) 1925 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3182:72: if(jerr.ne.0) return 1926 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3183:72: dev1=0.0 1927 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3184:72: 14750 do 14751 ic=1,nc 1927 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3185:72: q(:,ic)=b(0,ic)+g(:,ic) 1928 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3186:72: dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1929 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3187:72: q(:,ic)=exp(q(:,ic)) 1929 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3188:72: sxp=sxp+q(:,ic) 1930 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3189:72: 14751 continue 1931 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3190:72: 14752 continue 1931 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3191:72: sxpl=w*log(sxp) 1931 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3192:72: 14760 do 14761 ic=1,nc 1931 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3193:72: dev1=dev1+dot_product(y(:,ic),sxpl) 1931 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3194:72: 14761 continue 1932 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3195:72: 14762 continue 1932 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3196:72: 14731 continue 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3197:72: 14701 continue 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3198:72: 14770 do 14771 ic=1,nc 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3199:72: 14780 do 14781 i=1,no 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3200:72: 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: 14781 continue 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3202:72: 14782 continue 1933 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3203:72: 14771 continue 1934 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3204:72: 14772 continue 1934 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3205:72: dev0=dev0+dev1 1935 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3206:72: if(kopt .le. 0)goto 14801 1936 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3207:72: if(isd .le. 0)goto 14821 1936 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3208:72: xv=0.25 1936 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3209:72: goto 14831 1937 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3210:72: 14821 continue 1938 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3211:72: 14840 do 14841 j=1,ni 1938 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3212:72: if(ju(j).eq.0)goto 14841 1938 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3213:72: jb=ix(j) 1938 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3214:72: je=ix(j+1)-1 1939 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3215:72: 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: 14841 continue 1941 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3217:72: 14842 continue 1941 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3218:72: 14831 continue 1942 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3219:72: 14811 continue 1942 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3220:72: 14801 continue 1943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3221:72: if(flmin .ge. 1.0)goto 14861 1943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3222:72: eqs=max(eps,flmin) 1943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3223:72: alf=eqs**(1.0/(nlam-1)) 1943 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3224:72: 14861 continue 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3225:72: m=0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3226:72: mm=0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3227:72: nin=0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3228:72: nlp=0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3229:72: mnl=min(mnlam,nlam) 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3230:72: bs=0.0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3231:72: svr=0.0 1944 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3232:72: o=0.0 1945 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3233:72: shr=shri*dev0 1945 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3234:72: ga=0.0 1946 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3235:72: 14870 do 14871 ic=1,nc 1946 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3236:72: v=q(:,ic)/sxp 1946 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3237:72: r=w*(y(:,ic)-v) 1946 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3238:72: v=w*v*(1.0-v) 1947 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3239:72: 14880 do 14881 j=1,ni 1947 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3240:72: if(ju(j).eq.0)goto 14881 1948 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3241:72: jb=ix(j) 1948 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3242:72: je=ix(j+1)-1 1948 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3243:72: jn=ix(j+1)-ix(j) 1949 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3244:72: 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: gj=dot_product(sc(1:jn),x(jb:je)) 1951 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3246:72: 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: 14881 continue 1953 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3248:72: 14882 continue 1953 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3249:72: 14871 continue 1954 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3250:72: 14872 continue 1954 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3251:72: 14890 do 14891 ilm=1,nlam 1954 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3252:72: al0=al 1955 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3253:72: if(flmin .lt. 1.0)goto 14911 1955 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3254:72: al=ulam(ilm) 1955 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3255:72: goto 14901 1956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3256:72: 14911 if(ilm .le. 2)goto 14921 1956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3257:72: al=al*alf 1956 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3258:72: goto 14901 1957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3259:72: 14921 if(ilm .ne. 1)goto 14931 1957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3260:72: al=big 1957 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3261:72: goto 14941 1958 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3262:72: 14931 continue 1958 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3263:72: al0=0.0 1959 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3264:72: 14950 do 14951 j=1,ni 1959 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3265:72: if(ju(j).eq.0)goto 14951 1959 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3266:72: 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: 14951 continue 1960 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3268:72: 14952 continue 1960 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3269:72: al0=al0/max(bta,1.0e-3) 1960 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3270:72: al=alf*al0 1961 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3271:72: 14941 continue 1962 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3272:72: 14901 continue 1962 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3273:72: al2=al*omb 1962 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3274:72: al1=al*bta 1962 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3275:72: tlam=bta*(2.0*al-al0) 1963 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3276:72: 14960 do 14961 k=1,ni 1963 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3277:72: if(iy(k).eq.1)goto 14961 1963 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3278:72: if(ju(k).eq.0)goto 14961 1964 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3279:72: if(ga(k).gt.tlam*vp(k)) iy(k)=1 1965 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3280:72: 14961 continue 1966 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3281:72: 14962 continue 1966 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3282:72: 10680 continue 1967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3283:72: 14970 continue 1967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3284:72: 14971 continue 1967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3285:72: ixx=0 1967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3286:72: jxx=ixx 1967 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3287:72: ig=0 1968 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3288:72: 14980 do 14981 ic=1,nc 1968 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3289:72: bs(0,ic)=b(0,ic) 1969 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3290:72: 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: xm(0)=0.0 1970 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3292:72: svr=0.0 1970 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3293:72: o=0.0 1971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3294:72: 14990 do 14991 i=1,no 1971 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3295:72: pic=q(i,ic)/sxp(i) 1972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3296:72: if(pic .ge. pfm)goto 15011 1972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3297:72: pic=0.0 1972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3298:72: v(i)=0.0 1972 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3299:72: goto 15001 1973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3300:72: 15011 if(pic .le. pfx)goto 15021 1973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3301:72: pic=1.0 1973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3302:72: v(i)=0.0 1973 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3303:72: goto 15031 1974 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3304:72: 15021 continue 1974 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3305:72: v(i)=w(i)*pic*(1.0-pic) 1974 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3306:72: xm(0)=xm(0)+v(i) 1974 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3307:72: 15031 continue 1975 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3308:72: 15001 continue 1975 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3309:72: r(i)=w(i)*(y(i,ic)-pic) 1975 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3310:72: svr=svr+r(i) 1976 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3311:72: 14991 continue 1977 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3312:72: 14992 continue 1977 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3313:72: if(xm(0).le.vmin)goto 14981 1977 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3314:72: ig=1 1978 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3315:72: 15040 do 15041 j=1,ni 1978 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3316:72: if(iy(j).eq.0)goto 15041 1979 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3317:72: jb=ix(j) 1979 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3318:72: je=ix(j+1)-1 1980 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3319:72: xm(j)=dot_product(v(jx(jb:je)),x(jb:je)) 1981 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3320:72: if(kopt .ne. 0)goto 15061 1982 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3321:72: 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: 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: 15061 continue 1985 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3324:72: 15041 continue 1986 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3325:72: 15042 continue 1986 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3326:72: 15070 continue 1986 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3327:72: 15071 continue 1986 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3328:72: nlp=nlp+1 1986 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3329:72: dlx=0.0 1987 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3330:72: 15080 do 15081 k=1,ni 1987 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3331:72: if(iy(k).eq.0)goto 15081 1988 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3332:72: jb=ix(k) 1988 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3333:72: je=ix(k+1)-1 1988 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3334:72: jn=ix(k+1)-ix(k) 1988 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3335:72: bk=b(k,ic) 1989 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3336:72: 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: gk=dot_product(sc(1:jn),x(jb:je)) 1991 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3338:72: gk=(gk-svr*xb(k))/xs(k) 1992 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3339:72: u=gk+xv(k,ic)*b(k,ic) 1992 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3340:72: au=abs(u)-vp(k)*al1 1993 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3341:72: if(au .gt. 0.0)goto 15101 1993 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3342:72: b(k,ic)=0.0 1993 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3343:72: goto 15111 1994 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3344:72: 15101 continue 1994 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3345:72: 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: 15111 continue 1995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3347:72: 15091 continue 1995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3348:72: d=b(k,ic)-bk 1995 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3349:72: if(abs(d).le.0.0)goto 15081 1996 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3350:72: dlx=max(dlx,xv(k,ic)*d**2) 1997 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3351:72: if(mm(k) .ne. 0)goto 15131 1997 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3352:72: nin=nin+1 1998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3353:72: if(nin .le. nx)goto 15151 1998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3354:72: jxx=1 1998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3355:72: goto 15082 1998 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3356:72: 15151 continue 1999 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3357:72: mm(k)=nin 1999 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3358:72: m(nin)=k 2000 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3359:72: xm(k)=dot_product(v(jx(jb:je)),x(jb:je)) 2001 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3360:72: 15131 continue 2002 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3361:72: 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: o=o+d*(xb(k)/xs(k)) 2004 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3363:72: svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2005 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3364:72: 15081 continue 2006 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3365:72: 15082 continue 2006 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3366:72: if(jxx.gt.0)goto 15072 2007 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3367:72: d=svr/xm(0) 2008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3368:72: if(d .eq. 0.0)goto 15171 2008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3369:72: b(0,ic)=b(0,ic)+d 2008 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3370:72: dlx=max(dlx,xm(0)*d**2) 2009 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3371:72: r=r-d*v 2009 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3372:72: svr=svr-d*xm(0) 2010 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3373:72: 15171 continue 2011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3374:72: if(dlx.lt.shr)goto 15072 2011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3375:72: if(nlp .le. maxit)goto 15191 2011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3376:72: jerr=-ilm 2011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3377:72: return 2011 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3378:72: 15191 continue 2012 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3379:72: 15200 continue 2012 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3380:72: 15201 continue 2012 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3381:72: nlp=nlp+1 2012 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3382:72: dlx=0.0 2013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3383:72: 15210 do 15211 l=1,nin 2013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3384:72: k=m(l) 2013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3385:72: jb=ix(k) 2013 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3386:72: je=ix(k+1)-1 2014 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3387:72: jn=ix(k+1)-ix(k) 2014 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3388:72: bk=b(k,ic) 2015 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3389:72: 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: gk=dot_product(sc(1:jn),x(jb:je)) 2017 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3391:72: gk=(gk-svr*xb(k))/xs(k) 2018 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3392:72: u=gk+xv(k,ic)*b(k,ic) 2018 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3393:72: au=abs(u)-vp(k)*al1 2019 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3394:72: if(au .gt. 0.0)goto 15231 2019 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3395:72: b(k,ic)=0.0 2019 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3396:72: goto 15241 2020 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3397:72: 15231 continue 2020 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3398:72: 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: 15241 continue 2021 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3400:72: 15221 continue 2021 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3401:72: d=b(k,ic)-bk 2021 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3402:72: if(abs(d).le.0.0)goto 15211 2022 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3403:72: dlx=max(dlx,xv(k,ic)*d**2) 2023 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3404:72: 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: o=o+d*(xb(k)/xs(k)) 2025 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3406:72: svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2026 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3407:72: 15211 continue 2027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3408:72: 15212 continue 2027 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3409:72: d=svr/xm(0) 2028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3410:72: if(d .eq. 0.0)goto 15261 2028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3411:72: b(0,ic)=b(0,ic)+d 2028 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3412:72: dlx=max(dlx,xm(0)*d**2) 2029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3413:72: r=r-d*v 2029 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3414:72: svr=svr-d*xm(0) 2030 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3415:72: 15261 continue 2031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3416:72: if(dlx.lt.shr)goto 15202 2031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3417:72: if(nlp .le. maxit)goto 15281 2031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3418:72: jerr=-ilm 2031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3419:72: return 2031 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3420:72: 15281 continue 2032 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3421:72: goto 15201 2033 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3422:72: 15202 continue 2033 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3423:72: goto 15071 2034 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3424:72: 15072 continue 2034 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3425:72: if(jxx.gt.0)goto 14982 2035 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3426:72: 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: if(ixx .ne. 0)goto 15301 2037 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3428:72: 15310 do 15311 j=1,nin 2037 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3429:72: k=m(j) 2038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3430:72: 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: ixx=1 2038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3432:72: goto 15312 2038 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3433:72: 15331 continue 2039 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3434:72: 15311 continue 2040 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3435:72: 15312 continue 2040 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3436:72: 15301 continue 2041 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3437:72: sc=b(0,ic)+g(:,ic) 2041 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3438:72: b0=0.0 2042 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3439:72: 15340 do 15341 j=1,nin 2042 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3440:72: l=m(j) 2042 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3441:72: jb=ix(l) 2042 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3442:72: je=ix(l+1)-1 2043 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3443:72: 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: b0=b0-b(l,ic)*xb(l)/xs(l) 2045 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3445:72: 15341 continue 2046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3446:72: 15342 continue 2046 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3447:72: sc=min(max(exmn,sc+b0),exmx) 2047 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3448:72: sxp=sxp-q(:,ic) 2048 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3449:72: q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp) 2049 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3450:72: sxp=sxp+q(:,ic) 2050 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3451:72: 14981 continue 2051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3452:72: 14982 continue 2051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3453:72: s=-sum(b(0,:))/nc 2051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3454:72: b(0,:)=b(0,:)+s 2051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3455:72: sc=s 2051 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3456:72: b0=0.0 2052 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3457:72: 15350 do 15351 j=1,nin 2052 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3458:72: l=m(j) 2053 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3459:72: if(vp(l) .gt. 0.0)goto 15371 2053 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3460:72: s=sum(b(l,:))/nc 2053 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3461:72: goto 15381 2054 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3462:72: 15371 continue 2054 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3463:72: s=elc(parm,nc,b(l,:),is) 2054 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3464:72: 15381 continue 2055 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3465:72: 15361 continue 2055 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3466:72: b(l,:)=b(l,:)-s 2056 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3467:72: jb=ix(l) 2056 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3468:72: je=ix(l+1)-1 2057 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3469:72: 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: b0=b0+s*xb(l)/xs(l) 2059 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3471:72: 15351 continue 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3472:72: 15352 continue 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3473:72: sc=sc+b0 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3474:72: sc=exp(sc) 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3475:72: sxp=sxp*sc 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3476:72: 15390 do 15391 ic=1,nc 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3477:72: q(:,ic)=q(:,ic)*sc 2060 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3478:72: 15391 continue 2061 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3479:72: 15392 continue 2061 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3480:72: if(jxx.gt.0)goto 14972 2061 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3481:72: if(ig.eq.0)goto 14972 2062 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3482:72: if(ixx .ne. 0)goto 15411 2063 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3483:72: 15420 do 15421 j=1,ni 2063 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3484:72: if(iy(j).eq.1)goto 15421 2063 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3485:72: if(ju(j).eq.0)goto 15421 2063 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3486:72: ga(j)=0.0 2063 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3487:72: 15421 continue 2064 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3488:72: 15422 continue 2064 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3489:72: 15430 do 15431 ic=1,nc 2064 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3490:72: v=q(:,ic)/sxp 2064 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3491:72: r=w*(y(:,ic)-v) 2064 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3492:72: v=w*v*(1.0-v) 2065 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3493:72: 15440 do 15441 j=1,ni 2065 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3494:72: if(iy(j).eq.1)goto 15441 2065 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3495:72: if(ju(j).eq.0)goto 15441 2066 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3496:72: jb=ix(j) 2066 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3497:72: je=ix(j+1)-1 2066 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3498:72: jn=ix(j+1)-ix(j) 2067 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3499:72: 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: gj=dot_product(sc(1:jn),x(jb:je)) 2069 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3501:72: 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: 15441 continue 2071 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3503:72: 15442 continue 2071 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3504:72: 15431 continue 2072 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3505:72: 15432 continue 2072 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3506:72: 15450 do 15451 k=1,ni 2072 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3507:72: if(iy(k).eq.1)goto 15451 2072 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3508:72: if(ju(k).eq.0)goto 15451 2073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3509:72: if(ga(k) .le. al1*vp(k))goto 15471 2073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3510:72: iy(k)=1 2073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3511:72: ixx=1 2073 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3512:72: 15471 continue 2074 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3513:72: 15451 continue 2075 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3514:72: 15452 continue 2075 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3515:72: if(ixx.eq.1) go to 10680 2076 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3516:72: goto 14972 2077 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3517:72: 15411 continue 2078 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3518:72: goto 14971 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3519:72: 14972 continue 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3520:72: if(jxx .le. 0)goto 15491 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3521:72: jerr=-10000-ilm 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3522:72: goto 14892 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3523:72: 15491 continue 2079 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3524:72: devi=0.0 2080 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3525:72: 15500 do 15501 ic=1,nc 2081 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3526:72: 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: a0(ic,ilm)=b(0,ic) 2082 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3528:72: 15510 do 15511 i=1,no 2082 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3529:72: if(y(i,ic).le.0.0)goto 15511 2083 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3530:72: 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: 15511 continue 2085 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3532:72: 15512 continue 2085 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3533:72: 15501 continue 2086 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3534:72: 15502 continue 2086 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3535:72: kin(ilm)=nin 2086 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3536:72: alm(ilm)=al 2086 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3537:72: lmu=ilm 2087 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3538:72: dev(ilm)=(dev1-devi)/dev0 2087 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3539:72: if(ig.eq.0)goto 14892 2088 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3540:72: if(ilm.lt.mnl)goto 14891 2088 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3541:72: if(flmin.ge.1.0)goto 14891 2089 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3542:72: 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: if(dev(ilm).gt.devmax)goto 14892 2090 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3544:72: if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892 2091 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3545:72: 14891 continue 2092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3546:72: 14892 continue 2092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3547:72: g=log(q) 2092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3548:72: 15520 do 15521 i=1,no 2092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3549:72: g(i,:)=g(i,:)-sum(g(i,:))/nc 2092 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3550:72: 15521 continue 2093 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3551:72: 15522 continue 2093 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3552:72: 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: return 2095 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3554:72: end 2096 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3555:72: 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: real a0(nc),ca(nx,nc),x(*),f(nc,n) 2097 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3557:72: integer ia(*),ix(*),jx(*) 2098 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3558:72: 15530 do 15531 ic=1,nc 2098 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3559:72: f(ic,:)=a0(ic) 2098 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3560:72: 15531 continue 2099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3561:72: 15532 continue 2099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3562:72: 15540 do 15541 j=1,nin 2099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3563:72: k=ia(j) 2099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3564:72: kb=ix(k) 2099 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3565:72: ke=ix(k+1)-1 2100 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3566:72: 15550 do 15551 ic=1,nc 2100 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3567:72: 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: 15551 continue 2101 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3569:72: 15552 continue 2101 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3570:72: 15541 continue 2102 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3571:72: 15542 continue 2102 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3572:72: return 2103 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3573:72: end 2104 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3574:72: 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: 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: real ca(nx,nlam),dev(nlam),alm(nlam) 2108 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3578:72: integer jd(*),ia(nx),nin(nlam) 2109 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3581:72: if(maxval(vp) .gt. 0.0)goto 15571 2113 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3582:72: jerr=10000 2113 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3583:72: return 2113 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3584:72: 15571 continue 2114 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3585:72: allocate(ww(1:no),stat=jerr) 2115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3586:72: allocate(ju(1:ni),stat=ierr) 2115 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3587:72: jerr=jerr+ierr 2116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3588:72: allocate(vq(1:ni),stat=ierr) 2116 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3589:72: jerr=jerr+ierr 2117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3590:72: if(isd .le. 0)goto 15591 2117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3591:72: allocate(xs(1:ni),stat=ierr) 2117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3592:72: jerr=jerr+ierr 2117 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3593:72: 15591 continue 2118 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3594:72: if(jerr.ne.0) return 2119 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3595:72: call chkvars(no,ni,x,ju) 2120 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3596:72: 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: if(maxval(ju) .gt. 0)goto 15611 2121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3598:72: jerr=7777 2121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3599:72: return 2121 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3600:72: 15611 continue 2122 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3601:72: vq=max(0.0,vp) 2122 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3602:72: vq=vq*ni/sum(vq) 2123 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3603:72: ww=max(0.0,w) 2123 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3604:72: sw=sum(ww) 2124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3605:72: if(sw .gt. 0.0)goto 15631 2124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3606:72: jerr=9999 2124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3607:72: return 2124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3608:72: 15631 continue 2124 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3609:72: ww=ww/sw 2125 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3610:72: call cstandard(no,ni,x,ww,ju,isd,xs) 2126 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3611:72: 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: if(jerr.gt.0) return 2128 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3614:72: dev0=2.0*sw*dev0 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3615:72: if(isd .le. 0)goto 15651 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3616:72: 15660 do 15661 k=1,lmu 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3617:72: nk=nin(k) 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3618:72: 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: 15661 continue 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3620:72: 15662 continue 2129 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3621:72: 15651 continue 2130 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3622:72: deallocate(ww,ju,vq) 2130 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3623:72: if(isd.gt.0) deallocate(xs) 2131 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3624:72: return 2132 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3625:72: end 2133 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3626:72: subroutine cstandard (no,ni,x,w,ju,isd,xs) 2134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3627:72: real x(no,ni),w(no),xs(ni) 2134 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3628:72: integer ju(ni) 2135 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3629:72: 15670 do 15671 j=1,ni 2135 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3630:72: if(ju(j).eq.0)goto 15671 2136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3631:72: xm=dot_product(w,x(:,j)) 2136 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3632:72: x(:,j)=x(:,j)-xm 2137 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3633:72: if(isd .le. 0)goto 15691 2137 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3634:72: xs(j)=sqrt(dot_product(w,x(:,j)**2)) 2137 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3635:72: x(:,j)=x(:,j)/xs(j) 2137 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3636:72: 15691 continue 2138 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3637:72: 15671 continue 2139 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3638:72: 15672 continue 2139 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3639:72: return 2140 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3640:72: end 2141 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3641:72: 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: 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: 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: real ao(nx,nlam),dev(nlam),alm(nlam) 2146 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3646:72: integer ju(ni),m(nx),kin(nlam) 2147 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3650:72: allocate(e(1:no),stat=jerr) 2153 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3651:72: allocate(uu(1:no),stat=ierr) 2153 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3652:72: jerr=jerr+ierr 2154 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3653:72: allocate(f(1:no),stat=ierr) 2154 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3654:72: jerr=jerr+ierr 2155 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3655:72: allocate(w(1:no),stat=ierr) 2155 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3656:72: jerr=jerr+ierr 2156 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3657:72: allocate(v(1:ni),stat=ierr) 2156 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3658:72: jerr=jerr+ierr 2157 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3659:72: allocate(a(1:ni),stat=ierr) 2157 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3660:72: jerr=jerr+ierr 2158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3661:72: allocate(as(1:ni),stat=ierr) 2158 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3662:72: jerr=jerr+ierr 2159 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3663:72: allocate(xs(1:ni),stat=ierr) 2159 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3664:72: jerr=jerr+ierr 2160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3665:72: allocate(ga(1:ni),stat=ierr) 2160 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3666:72: jerr=jerr+ierr 2161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3667:72: allocate(ixx(1:ni),stat=ierr) 2161 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3668:72: jerr=jerr+ierr 2162 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3669:72: allocate(jp(1:no),stat=ierr) 2162 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3670:72: jerr=jerr+ierr 2163 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3671:72: allocate(kp(1:no),stat=ierr) 2163 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3672:72: jerr=jerr+ierr 2164 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3673:72: allocate(dk(1:no),stat=ierr) 2164 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3674:72: jerr=jerr+ierr 2165 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3675:72: allocate(wr(1:no),stat=ierr) 2165 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3676:72: jerr=jerr+ierr 2166 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3677:72: allocate(dq(1:no),stat=ierr) 2166 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3678:72: jerr=jerr+ierr 2167 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3679:72: allocate(mm(1:ni),stat=ierr) 2167 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3680:72: jerr=jerr+ierr 2168 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3681:72: if(jerr.ne.0)go to 11790 2169 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3682:72: call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3683:72: if(jerr.ne.0) go to 11790 2170 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3684:72: alpha=parm 2171 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3685:72: oma=1.0-alpha 2171 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3686:72: nlm=0 2171 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3687:72: ixx=0 2171 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3688:72: al=0.0 2172 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3689:72: dq=d*q 2172 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3690:72: call died(no,nk,dq,kp,jp,dk) 2173 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3691:72: a=0.0 2173 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3692:72: f(1)=0.0 2173 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3693:72: fmax=log(huge(f(1))*0.1) 2174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3694:72: if(nonzero(no,g) .eq. 0)goto 15711 2174 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3695:72: f=g-dot_product(q,g) 2175 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3696:72: e=q*exp(sign(min(abs(f),fmax),f)) 2176 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3697:72: goto 15721 2177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3698:72: 15711 continue 2177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3699:72: f=0.0 2177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3700:72: e=q 2177 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3701:72: 15721 continue 2178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3702:72: 15701 continue 2178 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3703:72: 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: rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0) 2179 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3705:72: dev0=rr 2180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3706:72: 15730 do 15731 i=1,no 2180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3707:72: 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: w(i)=0.0 2180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3709:72: wr(i)=w(i) 2180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3710:72: 15751 continue 2180 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3711:72: 15731 continue 2181 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3712:72: 15732 continue 2181 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3713:72: 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: if(jerr.ne.0) go to 11790 2183 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3715:72: if(flmin .ge. 1.0)goto 15771 2183 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3716:72: eqs=max(eps,flmin) 2183 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3717:72: alf=eqs**(1.0/(nlam-1)) 2183 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3718:72: 15771 continue 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3719:72: m=0 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3720:72: mm=0 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3721:72: nlp=0 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3722:72: nin=nlp 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3723:72: mnl=min(mnlam,nlam) 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3724:72: as=0.0 2184 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3725:72: cthr=cthri*dev0 2185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3726:72: 15780 do 15781 j=1,ni 2185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3727:72: if(ju(j).eq.0)goto 15781 2185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3728:72: ga(j)=abs(dot_product(wr,x(:,j))) 2185 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3729:72: 15781 continue 2186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3730:72: 15782 continue 2186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3731:72: 15790 do 15791 ilm=1,nlam 2186 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3732:72: al0=al 2187 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3733:72: if(flmin .lt. 1.0)goto 15811 2187 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3734:72: al=ulam(ilm) 2187 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3735:72: goto 15801 2188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3736:72: 15811 if(ilm .le. 2)goto 15821 2188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3737:72: al=al*alf 2188 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3738:72: goto 15801 2189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3739:72: 15821 if(ilm .ne. 1)goto 15831 2189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3740:72: al=big 2189 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3741:72: goto 15841 2190 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3742:72: 15831 continue 2190 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3743:72: al0=0.0 2191 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3744:72: 15850 do 15851 j=1,ni 2191 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3745:72: if(ju(j).eq.0)goto 15851 2191 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3746:72: 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: 15851 continue 2192 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3748:72: 15852 continue 2192 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3749:72: al0=al0/max(parm,1.0e-3) 2192 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3750:72: al=alf*al0 2193 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3751:72: 15841 continue 2194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3752:72: 15801 continue 2194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3753:72: sa=alpha*al 2194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3754:72: omal=oma*al 2194 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3755:72: tlam=alpha*(2.0*al-al0) 2195 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3756:72: 15860 do 15861 k=1,ni 2195 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3757:72: if(ixx(k).eq.1)goto 15861 2195 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3758:72: if(ju(k).eq.0)goto 15861 2196 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3759:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2197 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3760:72: 15861 continue 2198 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3761:72: 15862 continue 2198 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3762:72: 10680 continue 2199 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3763:72: 15870 continue 2199 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3764:72: 15871 continue 2199 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3765:72: 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: call vars(no,ni,x,w,ixx,v) 2201 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3767:72: 15880 continue 2201 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3768:72: 15881 continue 2201 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3769:72: nlp=nlp+1 2201 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3770:72: dli=0.0 2202 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3771:72: 15890 do 15891 j=1,ni 2202 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3772:72: if(ixx(j).eq.0)goto 15891 2203 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3773:72: u=a(j)*v(j)+dot_product(wr,x(:,j)) 2204 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3774:72: if(abs(u) .gt. vp(j)*sa)goto 15911 2204 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3775:72: at=0.0 2204 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3776:72: goto 15921 2205 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3777:72: 15911 continue 2205 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3778:72: 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: 15921 continue 2206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3780:72: 15901 continue 2206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3781:72: if(at .eq. a(j))goto 15941 2206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3782:72: del=at-a(j) 2206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3783:72: a(j)=at 2206 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3784:72: dli=max(dli,v(j)*del**2) 2207 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3785:72: wr=wr-del*w*x(:,j) 2207 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3786:72: f=f+del*x(:,j) 2208 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3787:72: if(mm(j) .ne. 0)goto 15961 2208 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3788:72: nin=nin+1 2208 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3789:72: if(nin.gt.nx)goto 15892 2209 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3790:72: mm(j)=nin 2209 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3791:72: m(nin)=j 2210 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3792:72: 15961 continue 2211 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3793:72: 15941 continue 2212 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3794:72: 15891 continue 2213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3795:72: 15892 continue 2213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3796:72: if(nin.gt.nx)goto 15882 2213 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3797:72: if(dli.lt.cthr)goto 15882 2214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3798:72: if(nlp .le. maxit)goto 15981 2214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3799:72: jerr=-ilm 2214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3800:72: return 2214 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3801:72: 15981 continue 2215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3802:72: 15990 continue 2215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3803:72: 15991 continue 2215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3804:72: nlp=nlp+1 2215 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3805:72: dli=0.0 2216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3806:72: 16000 do 16001 l=1,nin 2216 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3807:72: j=m(l) 2217 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3808:72: u=a(j)*v(j)+dot_product(wr,x(:,j)) 2218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3809:72: if(abs(u) .gt. vp(j)*sa)goto 16021 2218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3810:72: at=0.0 2218 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3811:72: goto 16031 2219 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3812:72: 16021 continue 2219 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3813:72: 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: 16031 continue 2220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3815:72: 16011 continue 2220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3816:72: if(at .eq. a(j))goto 16051 2220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3817:72: del=at-a(j) 2220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3818:72: a(j)=at 2220 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3819:72: dli=max(dli,v(j)*del**2) 2221 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3820:72: wr=wr-del*w*x(:,j) 2221 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3821:72: f=f+del*x(:,j) 2222 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3822:72: 16051 continue 2223 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3823:72: 16001 continue 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3824:72: 16002 continue 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3825:72: if(dli.lt.cthr)goto 15992 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3826:72: if(nlp .le. maxit)goto 16071 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3827:72: jerr=-ilm 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3828:72: return 2224 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3829:72: 16071 continue 2225 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3830:72: goto 15991 2226 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3831:72: 15992 continue 2226 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3832:72: goto 15881 2227 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3833:72: 15882 continue 2227 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3834:72: if(nin.gt.nx)goto 15872 2228 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3835:72: e=q*exp(sign(min(abs(f),fmax),f)) 2229 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3836:72: 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: if(jerr .eq. 0)goto 16091 2230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3838:72: jerr=jerr-ilm 2230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3839:72: go to 11790 2230 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3840:72: 16091 continue 2231 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3841:72: ix=0 2232 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3842:72: 16100 do 16101 j=1,nin 2232 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3843:72: k=m(j) 2233 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3844:72: 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: ix=1 2233 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3846:72: goto 16102 2233 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3847:72: 16101 continue 2234 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3848:72: 16102 continue 2234 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3849:72: if(ix .ne. 0)goto 16121 2235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3850:72: 16130 do 16131 k=1,ni 2235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3851:72: if(ixx(k).eq.1)goto 16131 2235 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3852:72: if(ju(k).eq.0)goto 16131 2236 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3853:72: ga(k)=abs(dot_product(wr,x(:,k))) 2237 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3854:72: if(ga(k) .le. sa*vp(k))goto 16151 2237 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3855:72: ixx(k)=1 2237 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3856:72: ix=1 2237 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3857:72: 16151 continue 2238 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3858:72: 16131 continue 2239 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3859:72: 16132 continue 2239 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3860:72: if(ix.eq.1) go to 10680 2240 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3861:72: goto 15872 2241 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3862:72: 16121 continue 2242 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3863:72: goto 15871 2243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3864:72: 15872 continue 2243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3865:72: if(nin .le. nx)goto 16171 2243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3866:72: jerr=-10000-ilm 2243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3867:72: goto 15792 2243 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3868:72: 16171 continue 2244 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3869:72: 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: kin(ilm)=nin 2245 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3871:72: alm(ilm)=al 2245 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3872:72: lmu=ilm 2246 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3873:72: 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: if(ilm.lt.mnl)goto 15791 2247 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3875:72: if(flmin.ge.1.0)goto 15791 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3876:72: me=0 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3877:72: 16180 do 16181 j=1,nin 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3878:72: if(ao(j,ilm).ne.0.0) me=me+1 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3879:72: 16181 continue 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3880:72: 16182 continue 2248 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3881:72: if(me.gt.ne)goto 15792 2249 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3882:72: 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: if(dev(ilm).gt.devmax)goto 15792 2251 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3884:72: 15791 continue 2252 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3885:72: 15792 continue 2252 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3886:72: g=f 2253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3887:72: 11790 continue 2253 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3888:72: 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: return 2255 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3890:72: end 2256 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3891:72: subroutine cxmodval(ca,ia,nin,n,x,f) 2257 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3892:72: real ca(nin),x(n,*),f(n) 2257 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3893:72: integer ia(nin) 2258 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3894:72: f=0.0 2258 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3895:72: if(nin.le.0) return 2259 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3896:72: 16190 do 16191 i=1,n 2259 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3897:72: 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: 16191 continue 2260 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3899:72: 16192 continue 2260 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3900:72: return 2261 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3901:72: end 2262 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3902:72: subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr) 2263 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3903:72: real y(no),d(no),q(no) 2263 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3904:72: integer jp(no),kp(*) 2264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3905:72: 16200 do 16201 j=1,no 2264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3906:72: jp(j)=j 2264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3907:72: 16201 continue 2264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3908:72: 16202 continue 2264 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3909:72: call psort7(y,jp,1,no) 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3910:72: nj=0 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3911:72: 16210 do 16211 j=1,no 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3912:72: if(q(jp(j)).le.0.0)goto 16211 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3913:72: nj=nj+1 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3914:72: jp(nj)=jp(j) 2265 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3915:72: 16211 continue 2266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3916:72: 16212 continue 2266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3917:72: if(nj .ne. 0)goto 16231 2266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3918:72: jerr=20000 2266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3919:72: return 2266 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3920:72: 16231 continue 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3921:72: j=1 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3922:72: 16240 continue 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3923:72: 16241 if(d(jp(j)).gt.0.0)goto 16242 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3924:72: j=j+1 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3925:72: if(j.gt.nj)goto 16242 2267 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3926:72: goto 16241 2268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3927:72: 16242 continue 2268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3928:72: if(j .lt. nj-1)goto 16261 2268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3929:72: jerr=30000 2268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3930:72: return 2268 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3931:72: 16261 continue 2269 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3932:72: j0=j-1 2269 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3933:72: nj=nj-j0 2269 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3934:72: 16270 do 16271 j=1,nj 2269 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3935:72: jp(j)=jp(j+j0) 2269 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3936:72: 16271 continue 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3937:72: 16272 continue 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3938:72: jerr=0 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3939:72: nk=0 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3940:72: t0=y(jp(1)) 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3941:72: yk=t0 2270 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3942:72: j=2 2271 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3943:72: 16280 continue 2271 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3944:72: 16281 continue 2271 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3945:72: 16290 continue 2272 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3946:72: 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: j=j+1 2272 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3948:72: if(j.gt.nj)goto 16292 2272 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3949:72: goto 16291 2273 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3950:72: 16292 continue 2273 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3951:72: nk=nk+1 2273 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3952:72: kp(nk)=j-1 2273 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3953:72: if(j.gt.nj)goto 16282 2274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3954:72: if(j .ne. nj)goto 16311 2274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3955:72: nk=nk+1 2274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3956:72: kp(nk)=nj 2274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3957:72: goto 16282 2274 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3958:72: 16311 continue 2275 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3959:72: yk=y(jp(j)) 2275 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3960:72: j=j+1 2276 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3961:72: goto 16281 2277 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3962:72: 16282 continue 2277 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3963:72: return 2278 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3964:72: end 2279 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3965:72: 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: real d(no),dk(nk),wr(no),w(no) 2281 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3967:72: real e(no),u(no),b,c 2281 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3968:72: integer kp(nk),jp(no) 2282 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3969:72: call usk(no,nk,kp,jp,e,u) 2283 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3970:72: b=dk(1)/u(1) 2283 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3971:72: c=dk(1)/u(1)**2 2283 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3972:72: jerr=0 2284 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3973:72: 16320 do 16321 j=1,kp(1) 2284 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3974:72: i=jp(j) 2285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3975:72: w(i)=e(i)*(b-e(i)*c) 2285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3976:72: if(w(i) .gt. 0.0)goto 16341 2285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3977:72: jerr=-3 2285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3978:72: return 2285 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3979:72: 16341 continue 2286 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3980:72: wr(i)=d(i)-e(i)*b 2287 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3981:72: 16321 continue 2288 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3982:72: 16322 continue 2288 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3983:72: 16350 do 16351 k=2,nk 2288 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3984:72: j1=kp(k-1)+1 2288 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3985:72: j2=kp(k) 2289 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3986:72: b=b+dk(k)/u(k) 2289 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3987:72: c=c+dk(k)/u(k)**2 2290 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3988:72: 16360 do 16361 j=j1,j2 2290 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3989:72: i=jp(j) 2291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3990:72: w(i)=e(i)*(b-e(i)*c) 2291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3991:72: if(w(i) .gt. 0.0)goto 16381 2291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3992:72: jerr=-30000 2291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3993:72: return 2291 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3994:72: 16381 continue 2292 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3995:72: wr(i)=d(i)-e(i)*b 2293 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3996:72: 16361 continue 2294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3997:72: 16362 continue 2294 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3998:72: 16351 continue 2295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3999:72: 16352 continue 2295 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4000:72: return 2296 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4001:72: end 2297 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4002:72: subroutine vars(no,ni,x,w,ixx,v) 2298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4003:72: real x(no,ni),w(no),v(ni) 2298 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4004:72: integer ixx(ni) 2299 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4005:72: 16390 do 16391 j=1,ni 2299 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4006:72: 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: 16391 continue 2300 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4008:72: 16392 continue 2300 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4009:72: return 2301 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4010:72: end 2302 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4011:72: subroutine died(no,nk,d,kp,jp,dk) 2303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4012:72: real d(no),dk(nk) 2303 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4013:72: integer kp(nk),jp(no) 2304 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4014:72: dk(1)=sum(d(jp(1:kp(1)))) 2305 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4015:72: 16400 do 16401 k=2,nk 2305 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4016:72: dk(k)=sum(d(jp((kp(k-1)+1):kp(k)))) 2305 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4017:72: 16401 continue 2306 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4018:72: 16402 continue 2306 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4019:72: return 2307 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4020:72: end 2308 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4021:72: subroutine usk(no,nk,kp,jp,e,u) 2309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4022:72: real e(no),u(nk),h 2309 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4023:72: integer kp(nk),jp(no) 2310 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4024:72: h=0.0 2311 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4025:72: 16410 do 16411 k=nk,1,-1 2311 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4026:72: j2=kp(k) 2312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4027:72: j1=1 2312 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4028:72: if(k.gt.1) j1=kp(k-1)+1 2313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4029:72: 16420 do 16421 j=j2,j1,-1 2313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4030:72: h=h+e(jp(j)) 2313 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4031:72: 16421 continue 2314 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4032:72: 16422 continue 2314 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4033:72: u(k)=h 2315 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4034:72: 16411 continue 2316 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4035:72: 16412 continue 2316 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4036:72: return 2317 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4037:72: end 2318 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4038:72: 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: real d(no),dk(nk),f(no) 2320 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4040:72: integer kp(nk),jp(no) 2320 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4041:72: real e(no),u(nk),s 2321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4042:72: call usk(no,nk,kp,jp,e,u) 2321 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4043:72: u=log(u) 2322 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4044:72: risk=dot_product(d,f)-dot_product(dk,u) 2323 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4045:72: return 2324 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4046:72: end 2325 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4047:72: 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: 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: allocate(e(1:no),stat=jerr) 2333 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4053:72: allocate(q(1:no),stat=ierr) 2333 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4054:72: jerr=jerr+ierr 2334 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4055:72: allocate(uu(1:no),stat=ierr) 2334 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4056:72: jerr=jerr+ierr 2335 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4057:72: allocate(f(1:no),stat=ierr) 2335 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4058:72: jerr=jerr+ierr 2336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4059:72: allocate(dk(1:no),stat=ierr) 2336 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4060:72: jerr=jerr+ierr 2337 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4061:72: allocate(jp(1:no),stat=ierr) 2337 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4062:72: jerr=jerr+ierr 2338 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4063:72: allocate(kp(1:no),stat=ierr) 2338 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4064:72: jerr=jerr+ierr 2339 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4065:72: allocate(dq(1:no),stat=ierr) 2339 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4066:72: jerr=jerr+ierr 2340 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4067:72: allocate(xm(1:ni),stat=ierr) 2340 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4068:72: jerr=jerr+ierr 2341 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4069:72: if(jerr.ne.0) go to 11790 2342 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4070:72: q=max(0.0,w) 2342 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4071:72: sw=sum(q) 2343 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4072:72: if(sw .gt. 0.0)goto 16441 2343 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4073:72: jerr=9999 2343 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4074:72: go to 11790 2343 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4075:72: 16441 continue 2344 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4076:72: call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4077:72: if(jerr.ne.0) go to 11790 2345 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4078:72: fmax=log(huge(e(1))*0.1) 2346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4079:72: dq=d*q 2346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4080:72: call died(no,nk,dq,kp,jp,dk) 2346 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4081:72: gm=dot_product(q,g)/sw 2347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4082:72: 16450 do 16451 j=1,ni 2347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4083:72: xm(j)=dot_product(q,x(:,j))/sw 2347 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4084:72: 16451 continue 2348 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4085:72: 16452 continue 2348 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4086:72: 16460 do 16461 lam=1,nlam 2349 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4087:72: 16470 do 16471 i=1,no 2349 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4088:72: 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: 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: 16471 continue 2352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4091:72: 16472 continue 2352 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4092:72: 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: 16461 continue 2354 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4094:72: 16462 continue 2354 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4095:72: 11790 continue 2354 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4096:72: deallocate(e,uu,dk,f,jp,kp,dq) 2355 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4097:72: return 2356 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4098:72: end 2357 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4099:72: 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: 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: real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2361 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4103:72: integer jd(*),ia(nx),nin(nlam) 2362 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4106:72: if(maxval(vp) .gt. 0.0)goto 16491 2366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4107:72: jerr=10000 2366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4108:72: return 2366 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4109:72: 16491 continue 2367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4110:72: if(minval(y) .ge. 0.0)goto 16511 2367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4111:72: jerr=8888 2367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4112:72: return 2367 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4113:72: 16511 continue 2368 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4114:72: allocate(ww(1:no),stat=jerr) 2369 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4115:72: allocate(ju(1:ni),stat=ierr) 2369 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4116:72: jerr=jerr+ierr 2370 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4117:72: allocate(vq(1:ni),stat=ierr) 2370 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4118:72: jerr=jerr+ierr 2371 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4119:72: allocate(xm(1:ni),stat=ierr) 2371 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4120:72: jerr=jerr+ierr 2372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4121:72: if(isd .le. 0)goto 16531 2372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4122:72: allocate(xs(1:ni),stat=ierr) 2372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4123:72: jerr=jerr+ierr 2372 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4124:72: 16531 continue 2373 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4125:72: if(jerr.ne.0) return 2374 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4126:72: call chkvars(no,ni,x,ju) 2375 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4127:72: 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: if(maxval(ju) .gt. 0)goto 16551 2376 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4129:72: jerr=7777 2376 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4130:72: go to 11790 2376 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4131:72: 16551 continue 2377 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4132:72: vq=max(0.0,vp) 2377 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4133:72: vq=vq*ni/sum(vq) 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4134:72: ww=max(0.0,w) 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4135:72: sw=sum(ww) 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4136:72: if(sw .gt. 0.0)goto 16571 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4137:72: jerr=9999 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4138:72: go to 11790 2378 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4139:72: 16571 continue 2379 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4140:72: ww=ww/sw 2380 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4141:72: call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 2381 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4142:72: 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: if(jerr.gt.0) go to 11790 2383 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4145:72: dev0=2.0*sw*dev0 2384 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4146:72: 16580 do 16581 k=1,lmu 2384 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4147:72: nk=nin(k) 2385 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4148:72: 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: 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: 16581 continue 2388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4151:72: 16582 continue 2388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4152:72: 11790 continue 2388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4153:72: deallocate(ww,ju,vq,xm) 2388 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4154:72: if(isd.gt.0) deallocate(xs) 2389 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4155:72: return 2390 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4156:72: end 2391 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4157:72: 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: 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: 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: real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2396 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4163:72: integer ju(ni),m(nx),kin(nlam) 2397 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4166:72: allocate(a(1:ni),stat=jerr) 2402 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4167:72: allocate(as(1:ni),stat=ierr) 2402 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4168:72: jerr=jerr+ierr 2403 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4169:72: allocate(t(1:no),stat=ierr) 2403 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4170:72: jerr=jerr+ierr 2404 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4171:72: allocate(mm(1:ni),stat=ierr) 2404 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4172:72: jerr=jerr+ierr 2405 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4173:72: allocate(ga(1:ni),stat=ierr) 2405 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4174:72: jerr=jerr+ierr 2406 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4175:72: allocate(ixx(1:ni),stat=ierr) 2406 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4176:72: jerr=jerr+ierr 2407 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4177:72: allocate(wr(1:no),stat=ierr) 2407 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4178:72: jerr=jerr+ierr 2408 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4179:72: allocate(v(1:ni),stat=ierr) 2408 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4180:72: jerr=jerr+ierr 2409 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4181:72: allocate(w(1:no),stat=ierr) 2409 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4182:72: jerr=jerr+ierr 2410 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4183:72: allocate(f(1:no),stat=ierr) 2410 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4184:72: jerr=jerr+ierr 2411 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4185:72: if(jerr.ne.0) return 2412 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4186:72: bta=parm 2412 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4187:72: omb=1.0-bta 2413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4188:72: t=q*y 2413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4189:72: yb=sum(t) 2413 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4190:72: fmax=log(huge(bta)*0.1) 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4191:72: if(nonzero(no,g) .ne. 0)goto 16601 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4192:72: w=q*yb 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4193:72: az=log(yb) 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4194:72: f=az 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4195:72: dv0=yb*(log(yb)-1.0) 2414 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4196:72: goto 16611 2415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4197:72: 16601 continue 2415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4198:72: w=q*exp(sign(min(abs(g),fmax),g)) 2415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4199:72: v0=sum(w) 2415 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4200:72: eaz=yb/v0 2416 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4201:72: w=eaz*w 2416 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4202:72: az=log(eaz) 2416 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4203:72: f=az+g 2417 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4204:72: dv0=dot_product(t,g)-yb*(1.0-az) 2418 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4205:72: 16611 continue 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4206:72: 16591 continue 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4207:72: a=0.0 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4208:72: as=0.0 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4209:72: wr=t-w 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4210:72: v0=yb 2419 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4211:72: dvr=-yb 2420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4212:72: 16620 do 16621 i=1,no 2420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4213:72: 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: 16621 continue 2420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4215:72: 16622 continue 2420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4216:72: dvr=dvr-dv0 2420 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4217:72: dev0=dvr 2421 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4218:72: if(flmin .ge. 1.0)goto 16641 2421 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4219:72: eqs=max(eps,flmin) 2421 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4220:72: alf=eqs**(1.0/(nlam-1)) 2421 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4221:72: 16641 continue 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4222:72: m=0 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4223:72: mm=0 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4224:72: nlp=0 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4225:72: nin=nlp 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4226:72: mnl=min(mnlam,nlam) 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4227:72: shr=shri*dev0 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4228:72: ixx=0 2422 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4229:72: al=0.0 2423 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4230:72: 16650 do 16651 j=1,ni 2423 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4231:72: if(ju(j).eq.0)goto 16651 2423 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4232:72: ga(j)=abs(dot_product(wr,x(:,j))) 2423 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4233:72: 16651 continue 2424 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4234:72: 16652 continue 2424 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4235:72: 16660 do 16661 ilm=1,nlam 2424 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4236:72: al0=al 2425 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4237:72: if(flmin .lt. 1.0)goto 16681 2425 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4238:72: al=ulam(ilm) 2425 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4239:72: goto 16671 2426 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4240:72: 16681 if(ilm .le. 2)goto 16691 2426 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4241:72: al=al*alf 2426 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4242:72: goto 16671 2427 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4243:72: 16691 if(ilm .ne. 1)goto 16701 2427 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4244:72: al=big 2427 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4245:72: goto 16711 2428 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4246:72: 16701 continue 2428 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4247:72: al0=0.0 2429 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4248:72: 16720 do 16721 j=1,ni 2429 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4249:72: if(ju(j).eq.0)goto 16721 2429 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4250:72: 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: 16721 continue 2430 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4252:72: 16722 continue 2430 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4253:72: al0=al0/max(bta,1.0e-3) 2430 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4254:72: al=alf*al0 2431 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4255:72: 16711 continue 2432 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4256:72: 16671 continue 2432 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4257:72: al2=al*omb 2432 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4258:72: al1=al*bta 2432 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4259:72: tlam=bta*(2.0*al-al0) 2433 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4260:72: 16730 do 16731 k=1,ni 2433 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4261:72: if(ixx(k).eq.1)goto 16731 2433 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4262:72: if(ju(k).eq.0)goto 16731 2434 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4263:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2435 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4264:72: 16731 continue 2436 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4265:72: 16732 continue 2436 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4266:72: 10680 continue 2437 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4267:72: 16740 continue 2437 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4268:72: 16741 continue 2437 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4269:72: az0=az 2438 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4270:72: 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: 16750 do 16751 j=1,ni 2439 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4272:72: 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: 16751 continue 2440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4274:72: 16752 continue 2440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4275:72: 16760 continue 2440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4276:72: 16761 continue 2440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4277:72: nlp=nlp+1 2440 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4278:72: dlx=0.0 2441 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4279:72: 16770 do 16771 k=1,ni 2441 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4280:72: if(ixx(k).eq.0)goto 16771 2441 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4281:72: ak=a(k) 2442 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4282:72: u=dot_product(wr,x(:,k))+v(k)*ak 2442 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4283:72: au=abs(u)-vp(k)*al1 2443 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4284:72: if(au .gt. 0.0)goto 16791 2443 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4285:72: a(k)=0.0 2443 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4286:72: goto 16801 2444 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4287:72: 16791 continue 2444 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4288:72: a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2444 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4289:72: 16801 continue 2445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4290:72: 16781 continue 2445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4291:72: if(a(k).eq.ak)goto 16771 2445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4292:72: d=a(k)-ak 2445 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4293:72: dlx=max(dlx,v(k)*d**2) 2446 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4294:72: wr=wr-d*w*x(:,k) 2446 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4295:72: f=f+d*x(:,k) 2447 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4296:72: if(mm(k) .ne. 0)goto 16821 2447 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4297:72: nin=nin+1 2447 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4298:72: if(nin.gt.nx)goto 16772 2448 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4299:72: mm(k)=nin 2448 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4300:72: m(nin)=k 2449 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4301:72: 16821 continue 2450 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4302:72: 16771 continue 2451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4303:72: 16772 continue 2451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4304:72: if(nin.gt.nx)goto 16762 2451 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4305:72: d=sum(wr)/v0 2452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4306:72: az=az+d 2452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4307:72: dlx=max(dlx,v0*d**2) 2452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4308:72: wr=wr-d*w 2452 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4309:72: f=f+d 2453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4310:72: if(dlx.lt.shr)goto 16762 2453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4311:72: if(nlp .le. maxit)goto 16841 2453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4312:72: jerr=-ilm 2453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4313:72: return 2453 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4314:72: 16841 continue 2454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4315:72: 16850 continue 2454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4316:72: 16851 continue 2454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4317:72: nlp=nlp+1 2454 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4318:72: dlx=0.0 2455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4319:72: 16860 do 16861 l=1,nin 2455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4320:72: k=m(l) 2455 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4321:72: ak=a(k) 2456 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4322:72: u=dot_product(wr,x(:,k))+v(k)*ak 2456 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4323:72: au=abs(u)-vp(k)*al1 2457 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4324:72: if(au .gt. 0.0)goto 16881 2457 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4325:72: a(k)=0.0 2457 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4326:72: goto 16891 2458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4327:72: 16881 continue 2458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4328:72: a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2458 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4329:72: 16891 continue 2459 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4330:72: 16871 continue 2459 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4331:72: if(a(k).eq.ak)goto 16861 2459 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4332:72: d=a(k)-ak 2459 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4333:72: dlx=max(dlx,v(k)*d**2) 2460 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4334:72: wr=wr-d*w*x(:,k) 2460 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4335:72: f=f+d*x(:,k) 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4336:72: 16861 continue 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4337:72: 16862 continue 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4338:72: d=sum(wr)/v0 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4339:72: az=az+d 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4340:72: dlx=max(dlx,v0*d**2) 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4341:72: wr=wr-d*w 2462 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4342:72: f=f+d 2463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4343:72: if(dlx.lt.shr)goto 16852 2463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4344:72: if(nlp .le. maxit)goto 16911 2463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4345:72: jerr=-ilm 2463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4346:72: return 2463 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4347:72: 16911 continue 2464 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4348:72: goto 16851 2465 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4349:72: 16852 continue 2465 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4350:72: goto 16761 2466 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4351:72: 16762 continue 2466 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4352:72: if(nin.gt.nx)goto 16742 2467 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4353:72: w=q*exp(sign(min(abs(f),fmax),f)) 2467 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4354:72: v0=sum(w) 2467 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4355:72: wr=t-w 2468 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4356:72: if(v0*(az-az0)**2 .ge. shr)goto 16931 2468 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4357:72: ix=0 2469 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4358:72: 16940 do 16941 j=1,nin 2469 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4359:72: k=m(j) 2470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4360:72: 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: ix=1 2470 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4362:72: goto 16942 2471 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4363:72: 16941 continue 2472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4364:72: 16942 continue 2472 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4365:72: if(ix .ne. 0)goto 16961 2473 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4366:72: 16970 do 16971 k=1,ni 2473 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4367:72: if(ixx(k).eq.1)goto 16971 2473 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4368:72: if(ju(k).eq.0)goto 16971 2474 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4369:72: ga(k)=abs(dot_product(wr,x(:,k))) 2475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4370:72: if(ga(k) .le. al1*vp(k))goto 16991 2475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4371:72: ixx(k)=1 2475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4372:72: ix=1 2475 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4373:72: 16991 continue 2476 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4374:72: 16971 continue 2477 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4375:72: 16972 continue 2477 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4376:72: if(ix.eq.1) go to 10680 2478 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4377:72: goto 16742 2479 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4378:72: 16961 continue 2480 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4379:72: 16931 continue 2481 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4380:72: goto 16741 2482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4381:72: 16742 continue 2482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4382:72: if(nin .le. nx)goto 17011 2482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4383:72: jerr=-10000-ilm 2482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4384:72: goto 16662 2482 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4385:72: 17011 continue 2483 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4386:72: 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: kin(ilm)=nin 2484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4388:72: a0(ilm)=az 2484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4389:72: alm(ilm)=al 2484 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4390:72: lmu=ilm 2485 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4391:72: dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr 2486 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4392:72: if(ilm.lt.mnl)goto 16661 2486 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4393:72: if(flmin.ge.1.0)goto 16661 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4394:72: me=0 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4395:72: 17020 do 17021 j=1,nin 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4396:72: if(ca(j,ilm).ne.0.0) me=me+1 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4397:72: 17021 continue 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4398:72: 17022 continue 2487 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4399:72: if(me.gt.ne)goto 16662 2488 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4400:72: 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: if(dev(ilm).gt.devmax)goto 16662 2490 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4402:72: 16661 continue 2491 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4403:72: 16662 continue 2491 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4404:72: g=f 2492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4405:72: 11790 continue 2492 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4406:72: deallocate(t,w,wr,v,a,f,as,mm,ga,ixx) 2493 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4407:72: return 2494 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4408:72: end 2495 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4409:72: function nonzero(n,v) 2496 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4410:72: real v(n) 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4411:72: nonzero=0 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4412:72: 17030 do 17031 i=1,n 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4413:72: if(v(i) .eq. 0.0)goto 17051 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4414:72: nonzero=1 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4415:72: return 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4416:72: 17051 continue 2497 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4417:72: 17031 continue 2498 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4418:72: 17032 continue 2498 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4419:72: return 2499 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4420:72: end 2500 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4421:72: subroutine solns(ni,nx,lmu,a,ia,nin,b) 2501 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4422:72: real a(nx,lmu),b(ni,lmu) 2501 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4423:72: integer ia(nx),nin(lmu) 2502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4424:72: 17060 do 17061 lam=1,lmu 2502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4425:72: call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam)) 2502 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4426:72: 17061 continue 2503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4427:72: 17062 continue 2503 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4428:72: return 2504 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4429:72: end 2505 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4430:72: subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b) 2506 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4431:72: real a(nx,nc,lmu),b(ni,nc,lmu) 2506 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4432:72: integer ia(nx),nin(lmu) 2507 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4433:72: 17070 do 17071 lam=1,lmu 2507 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4434:72: 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: 17071 continue 2508 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4436:72: 17072 continue 2508 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4437:72: return 2509 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4438:72: end 2510 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4439:72: 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: 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: if(minval(y) .ge. 0.0)goto 17091 2515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4443:72: jerr=8888 2515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4444:72: return 2515 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4445:72: 17091 continue 2516 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4446:72: allocate(w(1:no),stat=jerr) 2516 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4447:72: if(jerr.ne.0) return 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4448:72: w=max(0.0,q) 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4449:72: sw=sum(w) 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4450:72: if(sw .gt. 0.0)goto 17111 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4451:72: jerr=9999 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4452:72: go to 11790 2517 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4453:72: 17111 continue 2518 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4454:72: yb=dot_product(w,y)/sw 2518 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4455:72: fmax=log(huge(y(1))*0.1) 2519 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4456:72: 17120 do 17121 lam=1,nlam 2519 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4457:72: s=0.0 2520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4458:72: 17130 do 17131 i=1,no 2520 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4459:72: if(w(i).le.0.0)goto 17131 2521 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4460:72: f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:)) 2522 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4461:72: 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: 17131 continue 2524 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4463:72: 17132 continue 2524 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4464:72: flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2525 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4465:72: 17121 continue 2526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4466:72: 17122 continue 2526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4467:72: 11790 continue 2526 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4468:72: deallocate(w) 2527 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4469:72: return 2528 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4470:72: end 2529 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4471:72: 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: 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: real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2533 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4475:72: integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 2534 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4478:72: if(maxval(vp) .gt. 0.0)goto 17151 2538 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4479:72: jerr=10000 2538 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4480:72: return 2538 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4481:72: 17151 continue 2539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4482:72: if(minval(y) .ge. 0.0)goto 17171 2539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4483:72: jerr=8888 2539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4484:72: return 2539 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4485:72: 17171 continue 2540 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4486:72: allocate(ww(1:no),stat=jerr) 2541 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4487:72: allocate(ju(1:ni),stat=ierr) 2541 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4488:72: jerr=jerr+ierr 2542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4489:72: allocate(vq(1:ni),stat=ierr) 2542 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4490:72: jerr=jerr+ierr 2543 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4491:72: allocate(xm(1:ni),stat=ierr) 2543 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4492:72: jerr=jerr+ierr 2544 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4493:72: allocate(xs(1:ni),stat=ierr) 2544 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4494:72: jerr=jerr+ierr 2545 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4495:72: if(jerr.ne.0) return 2546 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4496:72: call spchkvars(no,ni,x,ix,ju) 2547 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4497:72: 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: if(maxval(ju) .gt. 0)goto 17191 2548 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4499:72: jerr=7777 2548 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4500:72: go to 11790 2548 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4501:72: 17191 continue 2549 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4502:72: vq=max(0.0,vp) 2549 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4503:72: vq=vq*ni/sum(vq) 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4504:72: ww=max(0.0,w) 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4505:72: sw=sum(ww) 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4506:72: if(sw .gt. 0.0)goto 17211 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4507:72: jerr=9999 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4508:72: go to 11790 2550 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4509:72: 17211 continue 2551 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4510:72: ww=ww/sw 2552 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4511:72: 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: 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: if(jerr.gt.0) go to 11790 2555 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4515:72: dev0=2.0*sw*dev0 2556 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4516:72: 17220 do 17221 k=1,lmu 2556 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4517:72: nk=nin(k) 2557 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4518:72: 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: 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: 17221 continue 2560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4521:72: 17222 continue 2560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4522:72: 11790 continue 2560 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4523:72: deallocate(ww,ju,vq,xm,xs) 2561 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4524:72: return 2562 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4525:72: end 2563 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4526:72: 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: 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: 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: real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2568 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4533:72: integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 2569 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4536:72: allocate(a(1:ni),stat=jerr) 2574 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4537:72: allocate(as(1:ni),stat=ierr) 2574 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4538:72: jerr=jerr+ierr 2575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4539:72: allocate(t(1:no),stat=ierr) 2575 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4540:72: jerr=jerr+ierr 2576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4541:72: allocate(mm(1:ni),stat=ierr) 2576 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4542:72: jerr=jerr+ierr 2577 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4543:72: allocate(ga(1:ni),stat=ierr) 2577 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4544:72: jerr=jerr+ierr 2578 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4545:72: allocate(ixx(1:ni),stat=ierr) 2578 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4546:72: jerr=jerr+ierr 2579 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4547:72: allocate(wr(1:no),stat=ierr) 2579 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4548:72: jerr=jerr+ierr 2580 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4549:72: allocate(v(1:ni),stat=ierr) 2580 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4550:72: jerr=jerr+ierr 2581 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4551:72: allocate(xm(1:ni),stat=ierr) 2581 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4552:72: jerr=jerr+ierr 2582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4553:72: allocate(w(1:no),stat=ierr) 2582 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4554:72: jerr=jerr+ierr 2583 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4555:72: allocate(qy(1:no),stat=ierr) 2583 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4556:72: jerr=jerr+ierr 2584 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4557:72: if(jerr.ne.0) return 2585 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4558:72: bta=parm 2585 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4559:72: omb=1.0-bta 2585 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4560:72: fmax=log(huge(bta)*0.1) 2586 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4561:72: qy=q*y 2586 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4562:72: yb=sum(qy) 2587 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4563:72: if(nonzero(no,g) .ne. 0)goto 17241 2587 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4564:72: w=q*yb 2587 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4565:72: az=log(yb) 2587 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4566:72: uu=az 2588 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4567:72: xm=yb*xb 2588 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4568:72: t=0.0 2588 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4569:72: dv0=yb*(log(yb)-1.0) 2589 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4570:72: goto 17251 2590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4571:72: 17241 continue 2590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4572:72: w=q*exp(sign(min(abs(g),fmax),g)) 2590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4573:72: ww=sum(w) 2590 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4574:72: eaz=yb/ww 2591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4575:72: w=eaz*w 2591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4576:72: az=log(eaz) 2591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4577:72: uu=az 2591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4578:72: t=g 2591 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4579:72: dv0=dot_product(qy,g)-yb*(1.0-az) 2592 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4580:72: 17260 do 17261 j=1,ni 2592 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4581:72: if(ju(j).eq.0)goto 17261 2592 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4582:72: jb=ix(j) 2592 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4583:72: je=ix(j+1)-1 2593 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4584:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2594 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4585:72: 17261 continue 2595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4586:72: 17262 continue 2595 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4587:72: 17251 continue 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4588:72: 17231 continue 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4589:72: tt=yb*uu 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4590:72: ww=yb 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4591:72: wr=qy-q*(yb*(1.0-uu)) 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4592:72: a=0.0 2596 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4593:72: as=0.0 2597 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4594:72: dvr=-yb 2598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4595:72: 17270 do 17271 i=1,no 2598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4596:72: 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: 17271 continue 2598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4598:72: 17272 continue 2598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4599:72: dvr=dvr-dv0 2598 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4600:72: dev0=dvr 2599 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4601:72: if(flmin .ge. 1.0)goto 17291 2599 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4602:72: eqs=max(eps,flmin) 2599 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4603:72: alf=eqs**(1.0/(nlam-1)) 2599 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4604:72: 17291 continue 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4605:72: m=0 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4606:72: mm=0 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4607:72: nlp=0 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4608:72: nin=nlp 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4609:72: mnl=min(mnlam,nlam) 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4610:72: shr=shri*dev0 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4611:72: al=0.0 2600 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4612:72: ixx=0 2601 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4613:72: 17300 do 17301 j=1,ni 2601 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4614:72: if(ju(j).eq.0)goto 17301 2602 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4615:72: jb=ix(j) 2602 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4616:72: je=ix(j+1)-1 2603 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4617:72: 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: 17301 continue 2606 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4620:72: 17302 continue 2606 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4621:72: 17310 do 17311 ilm=1,nlam 2606 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4622:72: al0=al 2607 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4623:72: if(flmin .lt. 1.0)goto 17331 2607 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4624:72: al=ulam(ilm) 2607 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4625:72: goto 17321 2608 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4626:72: 17331 if(ilm .le. 2)goto 17341 2608 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4627:72: al=al*alf 2608 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4628:72: goto 17321 2609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4629:72: 17341 if(ilm .ne. 1)goto 17351 2609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4630:72: al=big 2609 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4631:72: goto 17361 2610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4632:72: 17351 continue 2610 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4633:72: al0=0.0 2611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4634:72: 17370 do 17371 j=1,ni 2611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4635:72: if(ju(j).eq.0)goto 17371 2611 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4636:72: 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: 17371 continue 2612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4638:72: 17372 continue 2612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4639:72: al0=al0/max(bta,1.0e-3) 2612 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4640:72: al=alf*al0 2613 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4641:72: 17361 continue 2614 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4642:72: 17321 continue 2614 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4643:72: al2=al*omb 2614 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4644:72: al1=al*bta 2614 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4645:72: tlam=bta*(2.0*al-al0) 2615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4646:72: 17380 do 17381 k=1,ni 2615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4647:72: if(ixx(k).eq.1)goto 17381 2615 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4648:72: if(ju(k).eq.0)goto 17381 2616 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4649:72: if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2617 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4650:72: 17381 continue 2618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4651:72: 17382 continue 2618 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4652:72: 10680 continue 2619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4653:72: 17390 continue 2619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4654:72: 17391 continue 2619 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4655:72: az0=az 2620 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4656:72: 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: 17400 do 17401 j=1,ni 2621 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4658:72: if(ixx(j).eq.0)goto 17401 2621 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4659:72: jb=ix(j) 2621 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4660:72: je=ix(j+1)-1 2622 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4661:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2623 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4662:72: 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: 17401 continue 2626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4665:72: 17402 continue 2626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4666:72: 17410 continue 2626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4667:72: 17411 continue 2626 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4668:72: nlp=nlp+1 2627 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4669:72: dlx=0.0 2628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4670:72: 17420 do 17421 k=1,ni 2628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4671:72: if(ixx(k).eq.0)goto 17421 2628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4672:72: jb=ix(k) 2628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4673:72: je=ix(k+1)-1 2628 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4674:72: ak=a(k) 2629 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4675:72: 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: au=abs(u)-vp(k)*al1 2632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4678:72: if(au .gt. 0.0)goto 17441 2632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4679:72: a(k)=0.0 2632 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4680:72: goto 17451 2633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4681:72: 17441 continue 2633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4682:72: a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2633 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4683:72: 17451 continue 2634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4684:72: 17431 continue 2634 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4685:72: if(a(k).eq.ak)goto 17421 2635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4686:72: if(mm(k) .ne. 0)goto 17471 2635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4687:72: nin=nin+1 2635 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4688:72: if(nin.gt.nx)goto 17422 2636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4689:72: mm(k)=nin 2636 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4690:72: m(nin)=k 2637 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4691:72: 17471 continue 2638 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4692:72: d=a(k)-ak 2638 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4693:72: dlx=max(dlx,v(k)*d**2) 2638 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4694:72: dv=d/xs(k) 2639 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4695:72: 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: 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: uu=uu-dv*xb(k) 2641 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4698:72: tt=tt-dv*xm(k) 2642 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4699:72: 17421 continue 2643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4700:72: 17422 continue 2643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4701:72: if(nin.gt.nx)goto 17412 2643 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4702:72: d=tt/ww-uu 2644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4703:72: az=az+d 2644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4704:72: dlx=max(dlx,ww*d**2) 2644 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4705:72: uu=uu+d 2645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4706:72: if(dlx.lt.shr)goto 17412 2645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4707:72: if(nlp .le. maxit)goto 17491 2645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4708:72: jerr=-ilm 2645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4709:72: return 2645 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4710:72: 17491 continue 2646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4711:72: 17500 continue 2646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4712:72: 17501 continue 2646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4713:72: nlp=nlp+1 2646 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4714:72: dlx=0.0 2647 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4715:72: 17510 do 17511 l=1,nin 2647 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4716:72: k=m(l) 2648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4717:72: jb=ix(k) 2648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4718:72: je=ix(k+1)-1 2648 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4719:72: ak=a(k) 2649 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4720:72: 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: au=abs(u)-vp(k)*al1 2652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4723:72: if(au .gt. 0.0)goto 17531 2652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4724:72: a(k)=0.0 2652 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4725:72: goto 17541 2653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4726:72: 17531 continue 2653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4727:72: a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2653 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4728:72: 17541 continue 2654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4729:72: 17521 continue 2654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4730:72: if(a(k).eq.ak)goto 17511 2654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4731:72: d=a(k)-ak 2654 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4732:72: dlx=max(dlx,v(k)*d**2) 2655 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4733:72: dv=d/xs(k) 2655 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4734:72: 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: 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: uu=uu-dv*xb(k) 2657 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4737:72: tt=tt-dv*xm(k) 2658 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4738:72: 17511 continue 2659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4739:72: 17512 continue 2659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4740:72: d=tt/ww-uu 2659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4741:72: az=az+d 2659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4742:72: dlx=max(dlx,ww*d**2) 2659 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4743:72: uu=uu+d 2660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4744:72: if(dlx.lt.shr)goto 17502 2660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4745:72: if(nlp .le. maxit)goto 17561 2660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4746:72: jerr=-ilm 2660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4747:72: return 2660 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4748:72: 17561 continue 2661 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4749:72: goto 17501 2662 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4750:72: 17502 continue 2662 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4751:72: goto 17411 2663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4752:72: 17412 continue 2663 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4753:72: if(nin.gt.nx)goto 17392 2664 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4754:72: euu=exp(sign(min(abs(uu),fmax),uu)) 2665 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4755:72: w=euu*q*exp(sign(min(abs(t),fmax),t)) 2665 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4756:72: ww=sum(w) 2666 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4757:72: wr=qy-w*(1.0-uu) 2666 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4758:72: tt=sum(wr) 2667 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4759:72: if(ww*(az-az0)**2 .ge. shr)goto 17581 2667 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4760:72: kx=0 2668 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4761:72: 17590 do 17591 j=1,nin 2668 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4762:72: k=m(j) 2669 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4763:72: 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: kx=1 2669 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4765:72: goto 17592 2670 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4766:72: 17591 continue 2671 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4767:72: 17592 continue 2671 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4768:72: if(kx .ne. 0)goto 17611 2672 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4769:72: 17620 do 17621 j=1,ni 2672 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4770:72: if(ixx(j).eq.1)goto 17621 2672 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4771:72: if(ju(j).eq.0)goto 17621 2673 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4772:72: jb=ix(j) 2673 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4773:72: je=ix(j+1)-1 2674 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4774:72: xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2675 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4775:72: 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: if(ga(j) .le. al1*vp(j))goto 17641 2677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4778:72: ixx(j)=1 2677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4779:72: kx=1 2677 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4780:72: 17641 continue 2678 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4781:72: 17621 continue 2679 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4782:72: 17622 continue 2679 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4783:72: if(kx.eq.1) go to 10680 2680 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4784:72: goto 17392 2681 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4785:72: 17611 continue 2682 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4786:72: 17581 continue 2683 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4787:72: goto 17391 2684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4788:72: 17392 continue 2684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4789:72: if(nin .le. nx)goto 17661 2684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4790:72: jerr=-10000-ilm 2684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4791:72: goto 17312 2684 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4792:72: 17661 continue 2685 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4793:72: 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: kin(ilm)=nin 2686 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4795:72: a0(ilm)=az 2686 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4796:72: alm(ilm)=al 2686 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4797:72: lmu=ilm 2687 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4798:72: dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr 2688 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4799:72: if(ilm.lt.mnl)goto 17311 2688 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4800:72: if(flmin.ge.1.0)goto 17311 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4801:72: me=0 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4802:72: 17670 do 17671 j=1,nin 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4803:72: if(ca(j,ilm).ne.0.0) me=me+1 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4804:72: 17671 continue 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4805:72: 17672 continue 2689 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4806:72: if(me.gt.ne)goto 17312 2690 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4807:72: 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: if(dev(ilm).gt.devmax)goto 17312 2692 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4809:72: 17311 continue 2693 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4810:72: 17312 continue 2693 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4811:72: g=t+uu 2694 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4812:72: 11790 continue 2694 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4813:72: 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: return 2696 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4815:72: end 2697 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4816:72: 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: 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: integer ix(*),jx(*) 2700 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4820:72: if(minval(y) .ge. 0.0)goto 17691 2703 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4821:72: jerr=8888 2703 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4822:72: return 2703 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4823:72: 17691 continue 2704 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4824:72: allocate(w(1:no),stat=jerr) 2705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4825:72: allocate(f(1:no),stat=ierr) 2705 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4826:72: jerr=jerr+ierr 2706 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4827:72: if(jerr.ne.0) return 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4828:72: w=max(0.0,q) 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4829:72: sw=sum(w) 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4830:72: if(sw .gt. 0.0)goto 17711 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4831:72: jerr=9999 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4832:72: go to 11790 2707 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4833:72: 17711 continue 2708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4834:72: yb=dot_product(w,y)/sw 2708 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4835:72: fmax=log(huge(y(1))*0.1) 2709 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4836:72: 17720 do 17721 lam=1,nlam 2709 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4837:72: f=a0(lam) 2710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4838:72: 17730 do 17731 j=1,ni 2710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4839:72: if(a(j,lam).eq.0.0)goto 17731 2710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4840:72: jb=ix(j) 2710 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4841:72: je=ix(j+1)-1 2711 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4842:72: 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: 17731 continue 2713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4844:72: 17732 continue 2713 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4845:72: f=f+g 2714 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4846:72: 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: flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2716 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4848:72: 17721 continue 2717 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4849:72: 17722 continue 2717 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4850:72: 11790 continue 2717 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4851:72: deallocate(w,f) 2718 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4852:72: return 2719 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4853:72: end 2720 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4854:72: 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: 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: integer ix(*),jx(*),nin(nlam),ia(nx) 2723 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4859:72: if(minval(y) .ge. 0.0)goto 17751 2726 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4860:72: jerr=8888 2726 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4861:72: return 2726 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4862:72: 17751 continue 2727 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4863:72: allocate(w(1:no),stat=jerr) 2728 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4864:72: allocate(f(1:no),stat=ierr) 2728 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4865:72: jerr=jerr+ierr 2729 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4866:72: if(jerr.ne.0) return 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4867:72: w=max(0.0,q) 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4868:72: sw=sum(w) 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4869:72: if(sw .gt. 0.0)goto 17771 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4870:72: jerr=9999 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4871:72: go to 11790 2730 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4872:72: 17771 continue 2731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4873:72: yb=dot_product(w,y)/sw 2731 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4874:72: fmax=log(huge(y(1))*0.1) 2732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4875:72: 17780 do 17781 lam=1,nlam 2732 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4876:72: f=a0(lam) 2733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4877:72: 17790 do 17791 k=1,nin(lam) 2733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4878:72: j=ia(k) 2733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4879:72: jb=ix(j) 2733 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4880:72: je=ix(j+1)-1 2734 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4881:72: 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: 17791 continue 2736 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4883:72: 17792 continue 2736 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4884:72: f=f+g 2737 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4885:72: 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: flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2739 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4887:72: 17781 continue 2740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4888:72: 17782 continue 2740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4889:72: 11790 continue 2740 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4890:72: deallocate(w,f) 2741 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4891:72: return 2742 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4892:72: end 2743 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:541:5: 10031 continue 628 1 Warning: Label 10031 at (1) defined but not used [-Wunused-label] newGLMnet.f90:582:5: 10092 continue 659 1 Warning: Label 10092 at (1) defined but not used [-Wunused-label] newGLMnet.f90:579:5: 10090 do 10091 l=1,nk 658 1 Warning: Label 10090 at (1) defined but not used [-Wunused-label] newGLMnet.f90:585:5: 10082 continue 661 1 Warning: Label 10082 at (1) defined but not used [-Wunused-label] newGLMnet.f90:576:5: 10080 do 10081 k=1,lmu 657 1 Warning: Label 10080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1051:5: 10870 do 10871 i=2,no 890 1 Warning: Label 10870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1058:5: 10862 continue 892 1 Warning: Label 10862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1048:5: 10860 do 10861 j=1,ni 889 1 Warning: Label 10860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:625:5: 10152 continue 682 1 Warning: Label 10152 at (1) defined but not used [-Wunused-label] newGLMnet.f90:622:5: 10150 do 10151 j=1,ni 681 1 Warning: Label 10150 at (1) defined but not used [-Wunused-label] newGLMnet.f90:613:5: 10142 continue 678 1 Warning: Label 10142 at (1) defined but not used [-Wunused-label] newGLMnet.f90:609:5: 10140 do 10141 j=1,ni 677 1 Warning: Label 10140 at (1) defined but not used [-Wunused-label] newGLMnet.f90:616:5: 10111 continue 680 1 Warning: Label 10111 at (1) defined but not used [-Wunused-label] newGLMnet.f90:604:5: 10102 continue 675 1 Warning: Label 10102 at (1) defined but not used [-Wunused-label] newGLMnet.f90:597:5: 10100 do 10101 j=1,ni 671 1 Warning: Label 10100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:787:5: 10462 continue 755 1 Warning: Label 10462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:784:5: 10460 do 10461 j=1,nin 755 1 Warning: Label 10460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:768:5: 10432 continue 749 1 Warning: Label 10432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:764:5: 10430 do 10431 j=1,ni 746 1 Warning: Label 10430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:753:5: 10402 continue 742 1 Warning: Label 10402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:750:5: 10400 do 10401 j=1,nin 741 1 Warning: Label 10400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:755:5: 10392 continue 743 1 Warning: Label 10392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:739:5: 10390 do 10391 l=1,nin 735 1 Warning: Label 10390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:735:5: 10380 continue 734 1 Warning: Label 10380 at (1) defined but not used [-Wunused-label] newGLMnet.f90:723:5: 10352 continue 730 1 Warning: Label 10352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:720:5: 10350 do 10351 j=1,ni 729 1 Warning: Label 10350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:713:5: 10302 continue 725 1 Warning: Label 10302 at (1) defined but not used [-Wunused-label] newGLMnet.f90:701:5: 10300 do 10301 j=1,ni 720 1 Warning: Label 10300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:690:5: 10270 do 10271 k=1,ni 715 1 Warning: Label 10270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:685:5: 10250 continue 714 1 Warning: Label 10250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:677:5: 10242 continue 711 1 Warning: Label 10242 at (1) defined but not used [-Wunused-label] newGLMnet.f90:672:5: 10240 do 10241 j=1,ni 708 1 Warning: Label 10240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:660:5: 10180 do 10181 m=1,nlam 704 1 Warning: Label 10180 at (1) defined but not used [-Wunused-label] newGLMnet.f90:831:5: 10502 continue 787 1 Warning: Label 10502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:828:5: 10500 do 10501 l=1,nk 786 1 Warning: Label 10500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:834:5: 10492 continue 789 1 Warning: Label 10492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:825:5: 10490 do 10491 k=1,lmu 785 1 Warning: Label 10490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:862:5: 10552 continue 805 1 Warning: Label 10552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:858:5: 10550 do 10551 j=1,ni 804 1 Warning: Label 10550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:865:5: 10521 continue 807 1 Warning: Label 10521 at (1) defined but not used [-Wunused-label] newGLMnet.f90:853:5: 10512 continue 803 1 Warning: Label 10512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:846:5: 10510 do 10511 j=1,ni 799 1 Warning: Label 10510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1036:5: 10852 continue 881 1 Warning: Label 10852 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1033:5: 10850 do 10851 j=1,nin 881 1 Warning: Label 10850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1010:5: 10802 continue 873 1 Warning: Label 10802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:996:5: 10800 do 10801 l=1,nin 866 1 Warning: Label 10800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:992:5: 10790 continue 865 1 Warning: Label 10790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:982:5: 10742 continue 860 1 Warning: Label 10742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:973:5: 10740 do 10741 k=1,ni 856 1 Warning: Label 10740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:949:5: 10690 do 10691 k=1,ni 844 1 Warning: Label 10690 at (1) defined but not used [-Wunused-label] newGLMnet.f90:943:5: 10670 continue 842 1 Warning: Label 10670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:942:5: 10662 continue 842 1 Warning: Label 10662 at (1) defined but not used [-Wunused-label] newGLMnet.f90:937:5: 10660 do 10661 k=1,ni 839 1 Warning: Label 10660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:927:5: 10652 continue 835 1 Warning: Label 10652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:923:5: 10650 do 10651 j=1,ni 834 1 Warning: Label 10650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:910:5: 10590 do 10591 m=1,nlam 829 1 Warning: Label 10590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:909:5: 10582 continue 829 1 Warning: Label 10582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:905:5: 10580 do 10581 j=1,ni 828 1 Warning: Label 10580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1076:5: 10882 continue 903 1 Warning: Label 10882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1073:5: 10880 do 10881 i=1,n 902 1 Warning: Label 10880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1101:5: 10911 continue 927 1 Warning: Label 10911 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1142:5: 10972 continue 958 1 Warning: Label 10972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1139:5: 10970 do 10971 l=1,nk 957 1 Warning: Label 10970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1145:5: 10962 continue 960 1 Warning: Label 10962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1136:5: 10960 do 10961 k=1,lmu 956 1 Warning: Label 10960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1622:5: 11750 do 11751 i=jb+1,je 1189 1 Warning: Label 11750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1613:5: 11730 do 11731 i=jb,je 1188 1 Warning: Label 11730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1629:5: 11711 continue 1190 1 Warning: Label 11711 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1631:5: 11702 continue 1191 1 Warning: Label 11702 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1606:5: 11700 do 11701 j=1,ni 1186 1 Warning: Label 11700 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1181:5: 11022 continue 976 1 Warning: Label 11022 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1175:5: 11020 do 11021 j=1,ni 973 1 Warning: Label 11020 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1169:5: 10991 continue 972 1 Warning: Label 10991 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1162:5: 10982 continue 971 1 Warning: Label 10982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1154:5: 10980 do 10981 j=1,ni 966 1 Warning: Label 10980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1342:5: 11322 continue 1050 1 Warning: Label 11322 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1339:5: 11320 do 11321 j=1,nin 1050 1 Warning: Label 11320 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1323:5: 11292 continue 1044 1 Warning: Label 11292 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1319:5: 11290 do 11291 j=1,ni 1041 1 Warning: Label 11290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1308:5: 11262 continue 1037 1 Warning: Label 11262 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1305:5: 11260 do 11261 j=1,nin 1036 1 Warning: Label 11260 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1310:5: 11252 continue 1038 1 Warning: Label 11252 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1294:5: 11250 do 11251 l=1,nin 1030 1 Warning: Label 11250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1290:5: 11240 continue 1029 1 Warning: Label 11240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1278:5: 11212 continue 1025 1 Warning: Label 11212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1275:5: 11210 do 11211 j=1,ni 1024 1 Warning: Label 11210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1268:5: 11162 continue 1020 1 Warning: Label 11162 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1256:5: 11160 do 11161 j=1,ni 1014 1 Warning: Label 11160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1245:5: 11130 do 11131 k=1,ni 1009 1 Warning: Label 11130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1240:5: 11120 continue 1008 1 Warning: Label 11120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1232:5: 11112 continue 1005 1 Warning: Label 11112 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1227:5: 11110 do 11111 j=1,ni 1002 1 Warning: Label 11110 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1215:5: 11050 do 11051 m=1,nlam 998 1 Warning: Label 11050 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1669:5: 11810 continue 1213 1 Warning: Label 11810 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1662:5: 11780 continue 1211 1 Warning: Label 11780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1660:5: 11770 continue 1210 1 Warning: Label 11770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1386:5: 11362 continue 1082 1 Warning: Label 11362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1383:5: 11360 do 11361 l=1,nk 1081 1 Warning: Label 11360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1389:5: 11352 continue 1084 1 Warning: Label 11352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1380:5: 11350 do 11351 k=1,lmu 1080 1 Warning: Label 11350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1413:5: 11381 continue 1096 1 Warning: Label 11381 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1406:5: 11372 continue 1095 1 Warning: Label 11372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1398:5: 11370 do 11371 j=1,ni 1090 1 Warning: Label 11370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1594:5: 11692 continue 1178 1 Warning: Label 11692 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1591:5: 11690 do 11691 j=1,nin 1178 1 Warning: Label 11690 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1568:5: 11642 continue 1170 1 Warning: Label 11642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1551:5: 11640 do 11641 l=1,nin 1161 1 Warning: Label 11640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1547:5: 11630 continue 1160 1 Warning: Label 11630 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1537:5: 11582 continue 1155 1 Warning: Label 11582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1526:5: 11580 do 11581 j=1,ni 1150 1 Warning: Label 11580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1499:5: 11530 do 11531 k=1,ni 1136 1 Warning: Label 11530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1493:5: 11520 continue 1134 1 Warning: Label 11520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1492:5: 11512 continue 1134 1 Warning: Label 11512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1487:5: 11510 do 11511 k=1,ni 1131 1 Warning: Label 11510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1477:5: 11502 continue 1127 1 Warning: Label 11502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1473:5: 11500 do 11501 j=1,ni 1126 1 Warning: Label 11500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1460:5: 11440 do 11441 m=1,nlam 1121 1 Warning: Label 11440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1459:5: 11432 continue 1121 1 Warning: Label 11432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1453:5: 11430 do 11431 j=1,ni 1117 1 Warning: Label 11430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1644:5: 11762 continue 1199 1 Warning: Label 11762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1638:5: 11760 do 11761 j=1,nin 1196 1 Warning: Label 11760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1746:5: 11962 continue 1253 1 Warning: Label 11962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1743:5: 11960 do 11961 l=1,nk 1253 1 Warning: Label 11960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1750:5: 11932 continue 1256 1 Warning: Label 11932 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1741:5: 11930 do 11931 ic=1,nc 1253 1 Warning: Label 11930 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1752:5: 11922 continue 1257 1 Warning: Label 11922 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1739:5: 11920 do 11921 k=1,lmu 1252 1 Warning: Label 11920 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1736:5: 11891 continue 1251 1 Warning: Label 11891 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1724:5: 11882 continue 1241 1 Warning: Label 11882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1720:5: 11880 do 11881 i=1,no 1241 1 Warning: Label 11880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1769:5: 11972 continue 1266 1 Warning: Label 11972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1760:5: 11970 do 11971 j=1,ni 1262 1 Warning: Label 11970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2055:5: 12642 continue 1387 1 Warning: Label 12642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2052:5: 12640 do 12641 j=1,nin 1387 1 Warning: Label 12640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2030:5: 12592 continue 1376 1 Warning: Label 12592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2021:5: 12590 do 12591 k=1,ni 1372 1 Warning: Label 12590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2013:5: 12560 do 12561 j=1,nin 1368 1 Warning: Label 12560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2006:5: 12492 continue 1366 1 Warning: Label 12492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1992:5: 12490 do 12491 i=1,no 1361 1 Warning: Label 12490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1969:5: 12421 continue 1352 1 Warning: Label 12421 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1975:5: 12412 continue 1355 1 Warning: Label 12412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1957:5: 12410 do 12411 l=1,nin 1347 1 Warning: Label 12410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1953:5: 12400 continue 1346 1 Warning: Label 12400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1928:5: 12311 continue 1336 1 Warning: Label 12311 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1916:5: 12300 do 12301 k=1,ni 1331 1 Warning: Label 12300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1912:5: 12290 continue 1330 1 Warning: Label 12290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1910:5: 12282 continue 1329 1 Warning: Label 12282 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1907:5: 12280 do 12281 j=1,ni 1328 1 Warning: Label 12280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1902:5: 12250 continue 1326 1 Warning: Label 12250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1900:5: 12242 continue 1325 1 Warning: Label 12242 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1895:5: 12240 do 12241 k=1,ni 1322 1 Warning: Label 12240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1887:5: 12232 continue 1319 1 Warning: Label 12232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1883:5: 12230 do 12231 j=1,ni 1318 1 Warning: Label 12230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1870:5: 12170 do 12171 ilm=1,nlam 1313 1 Warning: Label 12170 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1869:5: 12162 continue 1313 1 Warning: Label 12162 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1865:5: 12160 do 12161 j=1,ni 1312 1 Warning: Label 12160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1852:5: 12132 continue 1309 1 Warning: Label 12132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1848:5: 12130 do 12131 i=1,no 1306 1 Warning: Label 12130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1843:5: 12122 continue 1303 1 Warning: Label 12122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1840:5: 12120 do 12121 j=1,ni 1303 1 Warning: Label 12120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1845:5: 12091 continue 1304 1 Warning: Label 12091 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1834:5: 12041 continue 1301 1 Warning: Label 12041 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4418:5: 17032 continue 2498 1 Warning: Label 17032 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4412:5: 17030 do 17031 i=1,n 2497 1 Warning: Label 17030 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2091:5: 12660 continue 1414 1 Warning: Label 12660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2073:5: 12652 continue 1400 1 Warning: Label 12652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2069:5: 12650 do 12651 i=1,n 1397 1 Warning: Label 12650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2497:5: 13542 continue 1596 1 Warning: Label 13542 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2494:5: 13540 do 13541 i=1,no 1595 1 Warning: Label 13540 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2478:5: 13532 continue 1588 1 Warning: Label 13532 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2474:5: 13530 do 13531 i=1,no 1585 1 Warning: Label 13530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2480:5: 13522 continue 1589 1 Warning: Label 13522 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2471:5: 13520 do 13521 ic=1,nc 1584 1 Warning: Label 13520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2460:5: 13472 continue 1578 1 Warning: Label 13472 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2452:5: 13470 do 13471 k=1,ni 1575 1 Warning: Label 13470 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2449:5: 13462 continue 1574 1 Warning: Label 13462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2444:5: 13460 do 13461 k=1,ni 1571 1 Warning: Label 13460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2451:5: 13452 continue 1575 1 Warning: Label 13452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2442:5: 13450 do 13451 ic=1,nc 1570 1 Warning: Label 13450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2441:5: 13442 continue 1570 1 Warning: Label 13442 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2436:5: 13440 do 13441 k=1,ni 1569 1 Warning: Label 13440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2432:5: 13412 continue 1567 1 Warning: Label 13412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2429:5: 13410 do 13411 ic=1,nc 1566 1 Warning: Label 13410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2422:5: 13381 continue 1564 1 Warning: Label 13381 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2426:5: 13372 continue 1566 1 Warning: Label 13372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2414:5: 13370 do 13371 j=1,nin 1561 1 Warning: Label 13370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2408:5: 13362 continue 1559 1 Warning: Label 13362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2400:5: 13360 do 13361 i=1,no 1552 1 Warning: Label 13360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2391:5: 13330 do 13331 j=1,nin 1548 1 Warning: Label 13330 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2366:5: 13241 continue 1535 1 Warning: Label 13241 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2372:5: 13232 continue 1538 1 Warning: Label 13232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2354:5: 13230 do 13231 l=1,nin 1530 1 Warning: Label 13230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2350:5: 13220 continue 1529 1 Warning: Label 13220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2322:5: 13111 continue 1517 1 Warning: Label 13111 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2310:5: 13100 do 13101 k=1,ni 1512 1 Warning: Label 13100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2306:5: 13090 continue 1511 1 Warning: Label 13090 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2304:5: 13082 continue 1510 1 Warning: Label 13082 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2301:5: 13080 do 13081 j=1,ni 1509 1 Warning: Label 13080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2297:5: 13012 continue 1507 1 Warning: Label 13012 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2280:5: 13010 do 13011 i=1,no 1501 1 Warning: Label 13010 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2276:5: 13000 do 13001 ic=1,nc 1498 1 Warning: Label 13000 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2271:5: 12990 continue 1497 1 Warning: Label 12990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2269:5: 12982 continue 1496 1 Warning: Label 12982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2264:5: 12980 do 12981 k=1,ni 1493 1 Warning: Label 12980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2256:5: 12972 continue 1490 1 Warning: Label 12972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2252:5: 12970 do 12971 j=1,ni 1489 1 Warning: Label 12970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2239:5: 12910 do 12911 ilm=1,nlam 1484 1 Warning: Label 12910 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2236:5: 12902 continue 1483 1 Warning: Label 12902 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2233:5: 12900 do 12901 j=1,ni 1482 1 Warning: Label 12900 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2238:5: 12892 continue 1484 1 Warning: Label 12892 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2231:5: 12890 do 12891 ic=1,nc 1481 1 Warning: Label 12890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2215:5: 12862 continue 1476 1 Warning: Label 12862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2212:5: 12860 do 12861 j=1,ni 1476 1 Warning: Label 12860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2217:5: 12831 continue 1477 1 Warning: Label 12831 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2203:5: 12802 continue 1472 1 Warning: Label 12802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2200:5: 12800 do 12801 i=1,no 1472 1 Warning: Label 12800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2205:5: 12792 continue 1473 1 Warning: Label 12792 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2199:5: 12790 do 12791 ic=1,nc 1472 1 Warning: Label 12790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2196:5: 12782 continue 1471 1 Warning: Label 12782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2193:5: 12780 do 12781 ic=1,nc 1470 1 Warning: Label 12780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2191:5: 12772 continue 1470 1 Warning: Label 12772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2185:5: 12770 do 12771 ic=1,nc 1466 1 Warning: Label 12770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2180:5: 12762 continue 1463 1 Warning: Label 12762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2177:5: 12760 do 12761 i=1,no 1463 1 Warning: Label 12760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2174:5: 12742 continue 1462 1 Warning: Label 12742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2170:5: 12740 do 12741 ic=1,nc 1461 1 Warning: Label 12740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2198:5: 12721 continue 1472 1 Warning: Label 12721 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2164:5: 12672 continue 1458 1 Warning: Label 12672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2150:5: 12670 do 12671 ic=1,nc 1453 1 Warning: Label 12670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2537:5: 13592 continue 1617 1 Warning: Label 13592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2532:5: 13590 do 13591 i=1,n 1616 1 Warning: Label 13590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2527:5: 13582 continue 1615 1 Warning: Label 13582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2522:5: 13580 do 13581 i=1,n 1612 1 Warning: Label 13580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2539:5: 13572 continue 1618 1 Warning: Label 13572 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2519:5: 13570 do 13571 k=1,kk 1611 1 Warning: Label 13570 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2516:5: 13560 continue 1610 1 Warning: Label 13560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2515:5: 13552 continue 1610 1 Warning: Label 13552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2512:5: 13550 do 13551 i=1,n 1609 1 Warning: Label 13550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2621:5: 13772 continue 1645 1 Warning: Label 13772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2611:5: 13770 do 13771 k=k1+1,k2 1641 1 Warning: Label 13770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2593:5: 13720 do 13721 k=k1,k2-1 1636 1 Warning: Label 13720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2585:5: 13710 continue 1634 1 Warning: Label 13710 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2579:5: 13700 continue 1633 1 Warning: Label 13700 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2571:5: 13651 continue 1631 1 Warning: Label 13651 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2559:5: 13622 continue 1627 1 Warning: Label 13622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2556:5: 13620 do 13621 i=1,n 1627 1 Warning: Label 13620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2637:5: 13812 continue 1652 1 Warning: Label 13812 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2630:5: 13810 do 13811 j=1,nin 1650 1 Warning: Label 13810 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2639:5: 13802 continue 1653 1 Warning: Label 13802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2629:5: 13800 do 13801 ic=1,nc 1650 1 Warning: Label 13800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2649:5: 13822 continue 1659 1 Warning: Label 13822 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2646:5: 13820 do 13821 ic=1,nc 1658 1 Warning: Label 13820 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2661:5: 13842 continue 1666 1 Warning: Label 13842 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2656:5: 13840 do 13841 ic=1,nc 1663 1 Warning: Label 13840 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2663:5: 13832 continue 1667 1 Warning: Label 13832 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2655:5: 13830 do 13831 i=1,nt 1663 1 Warning: Label 13830 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2724:5: 13972 continue 1701 1 Warning: Label 13972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2721:5: 13970 do 13971 l=1,nk 1701 1 Warning: Label 13970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2728:5: 13942 continue 1704 1 Warning: Label 13942 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2719:5: 13940 do 13941 ic=1,nc 1701 1 Warning: Label 13940 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2730:5: 13932 continue 1705 1 Warning: Label 13932 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2717:5: 13930 do 13931 k=1,lmu 1700 1 Warning: Label 13930 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2714:5: 13901 continue 1699 1 Warning: Label 13901 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2700:5: 13892 continue 1689 1 Warning: Label 13892 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2696:5: 13890 do 13891 i=1,no 1689 1 Warning: Label 13890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2745:5: 13982 continue 1714 1 Warning: Label 13982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2737:5: 13980 do 13981 j=1,ni 1710 1 Warning: Label 13980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3090:5: 14642 continue 1874 1 Warning: Label 14642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3087:5: 14640 do 14641 j=1,nin 1874 1 Warning: Label 14640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3066:5: 14592 continue 1863 1 Warning: Label 14592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3052:5: 14590 do 14591 j=1,ni 1856 1 Warning: Label 14590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3044:5: 14560 do 14561 j=1,nin 1852 1 Warning: Label 14560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3035:5: 14492 continue 1849 1 Warning: Label 14492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3022:5: 14490 do 14491 i=1,no 1845 1 Warning: Label 14490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3020:5: 14482 continue 1844 1 Warning: Label 14482 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3013:5: 14480 do 14481 j=1,nin 1840 1 Warning: Label 14480 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2985:5: 14411 continue 1827 1 Warning: Label 14411 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2993:5: 14402 continue 1832 1 Warning: Label 14402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2968:5: 14400 do 14401 l=1,nin 1819 1 Warning: Label 14400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2964:5: 14390 continue 1818 1 Warning: Label 14390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2934:5: 14301 continue 1804 1 Warning: Label 14301 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2917:5: 14290 do 14291 k=1,ni 1796 1 Warning: Label 14290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2913:5: 14280 continue 1795 1 Warning: Label 14280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2912:5: 14252 continue 1795 1 Warning: Label 14252 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2900:5: 14250 do 14251 j=1,ni 1786 1 Warning: Label 14250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2896:5: 14240 continue 1785 1 Warning: Label 14240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2894:5: 14232 continue 1784 1 Warning: Label 14232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2889:5: 14230 do 14231 k=1,ni 1781 1 Warning: Label 14230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2881:5: 14222 continue 1778 1 Warning: Label 14222 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2877:5: 14220 do 14221 j=1,ni 1777 1 Warning: Label 14220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2864:5: 14160 do 14161 ilm=1,nlam 1772 1 Warning: Label 14160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2863:5: 14152 continue 1772 1 Warning: Label 14152 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2854:5: 14150 do 14151 j=1,ni 1766 1 Warning: Label 14150 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2837:5: 14122 continue 1763 1 Warning: Label 14122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2833:5: 14120 do 14121 i=1,no 1760 1 Warning: Label 14120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2827:5: 14112 continue 1757 1 Warning: Label 14112 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2821:5: 14110 do 14111 j=1,ni 1754 1 Warning: Label 14110 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2829:5: 14081 continue 1758 1 Warning: Label 14081 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2815:5: 14031 continue 1751 1 Warning: Label 14031 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3551:5: 15522 continue 2093 1 Warning: Label 15522 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3548:5: 15520 do 15521 i=1,no 2092 1 Warning: Label 15520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3532:5: 15512 continue 2085 1 Warning: Label 15512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3528:5: 15510 do 15511 i=1,no 2082 1 Warning: Label 15510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3534:5: 15502 continue 2086 1 Warning: Label 15502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3525:5: 15500 do 15501 ic=1,nc 2081 1 Warning: Label 15500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3514:5: 15452 continue 2075 1 Warning: Label 15452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3506:5: 15450 do 15451 k=1,ni 2072 1 Warning: Label 15450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3503:5: 15442 continue 2071 1 Warning: Label 15442 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3493:5: 15440 do 15441 j=1,ni 2065 1 Warning: Label 15440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3505:5: 15432 continue 2072 1 Warning: Label 15432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3489:5: 15430 do 15431 ic=1,nc 2064 1 Warning: Label 15430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3488:5: 15422 continue 2064 1 Warning: Label 15422 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3483:5: 15420 do 15421 j=1,ni 2063 1 Warning: Label 15420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3479:5: 15392 continue 2061 1 Warning: Label 15392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3476:5: 15390 do 15391 ic=1,nc 2060 1 Warning: Label 15390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3465:5: 15361 continue 2055 1 Warning: Label 15361 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3472:5: 15352 continue 2060 1 Warning: Label 15352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3457:5: 15350 do 15351 j=1,nin 2052 1 Warning: Label 15350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3446:5: 15342 continue 2046 1 Warning: Label 15342 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3439:5: 15340 do 15341 j=1,nin 2042 1 Warning: Label 15340 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3428:5: 15310 do 15311 j=1,nin 2037 1 Warning: Label 15310 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3400:5: 15221 continue 2021 1 Warning: Label 15221 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3408:5: 15212 continue 2027 1 Warning: Label 15212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3383:5: 15210 do 15211 l=1,nin 2013 1 Warning: Label 15210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3379:5: 15200 continue 2012 1 Warning: Label 15200 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3347:5: 15091 continue 1995 1 Warning: Label 15091 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3330:5: 15080 do 15081 k=1,ni 1987 1 Warning: Label 15080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3326:5: 15070 continue 1986 1 Warning: Label 15070 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3325:5: 15042 continue 1986 1 Warning: Label 15042 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3315:5: 15040 do 15041 j=1,ni 1978 1 Warning: Label 15040 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3312:5: 14992 continue 1977 1 Warning: Label 14992 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3294:5: 14990 do 14991 i=1,no 1971 1 Warning: Label 14990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3288:5: 14980 do 14981 ic=1,nc 1968 1 Warning: Label 14980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3283:5: 14970 continue 1967 1 Warning: Label 14970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3281:5: 14962 continue 1966 1 Warning: Label 14962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3276:5: 14960 do 14961 k=1,ni 1963 1 Warning: Label 14960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3268:5: 14952 continue 1960 1 Warning: Label 14952 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3264:5: 14950 do 14951 j=1,ni 1959 1 Warning: Label 14950 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3251:5: 14890 do 14891 ilm=1,nlam 1954 1 Warning: Label 14890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3248:5: 14882 continue 1953 1 Warning: Label 14882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3239:5: 14880 do 14881 j=1,ni 1947 1 Warning: Label 14880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3250:5: 14872 continue 1954 1 Warning: Label 14872 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3235:5: 14870 do 14871 ic=1,nc 1946 1 Warning: Label 14870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3217:5: 14842 continue 1941 1 Warning: Label 14842 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3211:5: 14840 do 14841 j=1,ni 1938 1 Warning: Label 14840 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3219:5: 14811 continue 1942 1 Warning: Label 14811 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3202:5: 14782 continue 1933 1 Warning: Label 14782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3199:5: 14780 do 14781 i=1,no 1933 1 Warning: Label 14780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3204:5: 14772 continue 1934 1 Warning: Label 14772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3198:5: 14770 do 14771 ic=1,nc 1933 1 Warning: Label 14770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3195:5: 14762 continue 1932 1 Warning: Label 14762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3192:5: 14760 do 14761 ic=1,nc 1931 1 Warning: Label 14760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3190:5: 14752 continue 1931 1 Warning: Label 14752 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3184:5: 14750 do 14751 ic=1,nc 1927 1 Warning: Label 14750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3179:5: 14742 continue 1924 1 Warning: Label 14742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3176:5: 14740 do 14741 i=1,no 1924 1 Warning: Label 14740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3173:5: 14722 continue 1923 1 Warning: Label 14722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3169:5: 14720 do 14721 ic=1,nc 1922 1 Warning: Label 14720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3197:5: 14701 continue 1933 1 Warning: Label 14701 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3163:5: 14652 continue 1919 1 Warning: Label 14652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3149:5: 14650 do 14651 ic=1,nc 1914 1 Warning: Label 14650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3569:5: 15552 continue 2101 1 Warning: Label 15552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3566:5: 15550 do 15551 ic=1,nc 2100 1 Warning: Label 15550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3571:5: 15542 continue 2102 1 Warning: Label 15542 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3562:5: 15540 do 15541 j=1,nin 2099 1 Warning: Label 15540 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3561:5: 15532 continue 2099 1 Warning: Label 15532 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3558:5: 15530 do 15531 ic=1,nc 2098 1 Warning: Label 15530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3620:5: 15662 continue 2129 1 Warning: Label 15662 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3616:5: 15660 do 15661 k=1,lmu 2129 1 Warning: Label 15660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3638:5: 15672 continue 2139 1 Warning: Label 15672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3629:5: 15670 do 15671 j=1,ni 2135 1 Warning: Label 15670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3880:5: 16182 continue 2248 1 Warning: Label 16182 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3877:5: 16180 do 16181 j=1,nin 2248 1 Warning: Label 16180 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3859:5: 16132 continue 2239 1 Warning: Label 16132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3850:5: 16130 do 16131 k=1,ni 2235 1 Warning: Label 16130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3842:5: 16100 do 16101 j=1,nin 2232 1 Warning: Label 16100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3815:5: 16011 continue 2220 1 Warning: Label 16011 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3824:5: 16002 continue 2224 1 Warning: Label 16002 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3806:5: 16000 do 16001 l=1,nin 2216 1 Warning: Label 16000 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3802:5: 15990 continue 2215 1 Warning: Label 15990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3780:5: 15901 continue 2206 1 Warning: Label 15901 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3771:5: 15890 do 15891 j=1,ni 2202 1 Warning: Label 15890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3767:5: 15880 continue 2201 1 Warning: Label 15880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3763:5: 15870 continue 2199 1 Warning: Label 15870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3761:5: 15862 continue 2198 1 Warning: Label 15862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3756:5: 15860 do 15861 k=1,ni 2195 1 Warning: Label 15860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3748:5: 15852 continue 2192 1 Warning: Label 15852 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3744:5: 15850 do 15851 j=1,ni 2191 1 Warning: Label 15850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3731:5: 15790 do 15791 ilm=1,nlam 2186 1 Warning: Label 15790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3730:5: 15782 continue 2186 1 Warning: Label 15782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3726:5: 15780 do 15781 j=1,ni 2185 1 Warning: Label 15780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3712:5: 15732 continue 2181 1 Warning: Label 15732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3706:5: 15730 do 15731 i=1,no 2180 1 Warning: Label 15730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3702:5: 15701 continue 2178 1 Warning: Label 15701 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3945:5: 16290 continue 2272 1 Warning: Label 16290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3943:5: 16280 continue 2271 1 Warning: Label 16280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3937:5: 16272 continue 2270 1 Warning: Label 16272 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3934:5: 16270 do 16271 j=1,nj 2269 1 Warning: Label 16270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3922:5: 16240 continue 2267 1 Warning: Label 16240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3916:5: 16212 continue 2266 1 Warning: Label 16212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3911:5: 16210 do 16211 j=1,no 2265 1 Warning: Label 16210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3908:5: 16202 continue 2264 1 Warning: Label 16202 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3905:5: 16200 do 16201 j=1,no 2264 1 Warning: Label 16200 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4018:5: 16402 continue 2306 1 Warning: Label 16402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4015:5: 16400 do 16401 k=2,nk 2305 1 Warning: Label 16400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4032:5: 16422 continue 2314 1 Warning: Label 16422 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4029:5: 16420 do 16421 j=j2,j1,-1 2313 1 Warning: Label 16420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4035:5: 16412 continue 2316 1 Warning: Label 16412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4025:5: 16410 do 16411 k=nk,1,-1 2311 1 Warning: Label 16410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3997:5: 16362 continue 2294 1 Warning: Label 16362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3988:5: 16360 do 16361 j=j1,j2 2290 1 Warning: Label 16360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3999:5: 16352 continue 2295 1 Warning: Label 16352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3983:5: 16350 do 16351 k=2,nk 2288 1 Warning: Label 16350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3982:5: 16322 continue 2288 1 Warning: Label 16322 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3973:5: 16320 do 16321 j=1,kp(1) 2284 1 Warning: Label 16320 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4008:5: 16392 continue 2300 1 Warning: Label 16392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4005:5: 16390 do 16391 j=1,ni 2299 1 Warning: Label 16390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3899:5: 16192 continue 2260 1 Warning: Label 16192 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3896:5: 16190 do 16191 i=1,n 2259 1 Warning: Label 16190 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4091:5: 16472 continue 2352 1 Warning: Label 16472 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4087:5: 16470 do 16471 i=1,no 2349 1 Warning: Label 16470 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4094:5: 16462 continue 2354 1 Warning: Label 16462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4086:5: 16460 do 16461 lam=1,nlam 2349 1 Warning: Label 16460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4085:5: 16452 continue 2348 1 Warning: Label 16452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4082:5: 16450 do 16451 j=1,ni 2347 1 Warning: Label 16450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4151:5: 16582 continue 2388 1 Warning: Label 16582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4146:5: 16580 do 16581 k=1,lmu 2384 1 Warning: Label 16580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4398:5: 17022 continue 2487 1 Warning: Label 17022 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4395:5: 17020 do 17021 j=1,nin 2487 1 Warning: Label 17020 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4375:5: 16972 continue 2477 1 Warning: Label 16972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4366:5: 16970 do 16971 k=1,ni 2473 1 Warning: Label 16970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4358:5: 16940 do 16941 j=1,nin 2469 1 Warning: Label 16940 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4330:5: 16871 continue 2459 1 Warning: Label 16871 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4337:5: 16862 continue 2462 1 Warning: Label 16862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4319:5: 16860 do 16861 l=1,nin 2455 1 Warning: Label 16860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4315:5: 16850 continue 2454 1 Warning: Label 16850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4290:5: 16781 continue 2445 1 Warning: Label 16781 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4279:5: 16770 do 16771 k=1,ni 2441 1 Warning: Label 16770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4275:5: 16760 continue 2440 1 Warning: Label 16760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4274:5: 16752 continue 2440 1 Warning: Label 16752 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4271:5: 16750 do 16751 j=1,ni 2439 1 Warning: Label 16750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4267:5: 16740 continue 2437 1 Warning: Label 16740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4265:5: 16732 continue 2436 1 Warning: Label 16732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4260:5: 16730 do 16731 k=1,ni 2433 1 Warning: Label 16730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4252:5: 16722 continue 2430 1 Warning: Label 16722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4248:5: 16720 do 16721 j=1,ni 2429 1 Warning: Label 16720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4235:5: 16660 do 16661 ilm=1,nlam 2424 1 Warning: Label 16660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4234:5: 16652 continue 2424 1 Warning: Label 16652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4230:5: 16650 do 16651 j=1,ni 2423 1 Warning: Label 16650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4215:5: 16622 continue 2420 1 Warning: Label 16622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4212:5: 16620 do 16621 i=1,no 2420 1 Warning: Label 16620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4206:5: 16591 continue 2419 1 Warning: Label 16591 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4405:5: 11790 continue 2492 1 Warning: Label 11790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4427:5: 17062 continue 2503 1 Warning: Label 17062 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4424:5: 17060 do 17061 lam=1,lmu 2502 1 Warning: Label 17060 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4436:5: 17072 continue 2508 1 Warning: Label 17072 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4433:5: 17070 do 17071 lam=1,lmu 2507 1 Warning: Label 17070 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4463:5: 17132 continue 2524 1 Warning: Label 17132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4458:5: 17130 do 17131 i=1,no 2520 1 Warning: Label 17130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4466:5: 17122 continue 2526 1 Warning: Label 17122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4456:5: 17120 do 17121 lam=1,nlam 2519 1 Warning: Label 17120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4521:5: 17222 continue 2560 1 Warning: Label 17222 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4516:5: 17220 do 17221 k=1,lmu 2556 1 Warning: Label 17220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4805:5: 17672 continue 2689 1 Warning: Label 17672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4802:5: 17670 do 17671 j=1,nin 2689 1 Warning: Label 17670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4782:5: 17622 continue 2679 1 Warning: Label 17622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4769:5: 17620 do 17621 j=1,ni 2672 1 Warning: Label 17620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4761:5: 17590 do 17591 j=1,nin 2668 1 Warning: Label 17590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4729:5: 17521 continue 2654 1 Warning: Label 17521 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4739:5: 17512 continue 2659 1 Warning: Label 17512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4715:5: 17510 do 17511 l=1,nin 2647 1 Warning: Label 17510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4711:5: 17500 continue 2646 1 Warning: Label 17500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4684:5: 17431 continue 2634 1 Warning: Label 17431 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4670:5: 17420 do 17421 k=1,ni 2628 1 Warning: Label 17420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4666:5: 17410 continue 2626 1 Warning: Label 17410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4665:5: 17402 continue 2626 1 Warning: Label 17402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4657:5: 17400 do 17401 j=1,ni 2621 1 Warning: Label 17400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4653:5: 17390 continue 2619 1 Warning: Label 17390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4651:5: 17382 continue 2618 1 Warning: Label 17382 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4646:5: 17380 do 17381 k=1,ni 2615 1 Warning: Label 17380 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4638:5: 17372 continue 2612 1 Warning: Label 17372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4634:5: 17370 do 17371 j=1,ni 2611 1 Warning: Label 17370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4621:5: 17310 do 17311 ilm=1,nlam 2606 1 Warning: Label 17310 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4620:5: 17302 continue 2606 1 Warning: Label 17302 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4613:5: 17300 do 17301 j=1,ni 2601 1 Warning: Label 17300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4598:5: 17272 continue 2598 1 Warning: Label 17272 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4595:5: 17270 do 17271 i=1,no 2598 1 Warning: Label 17270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4586:5: 17262 continue 2595 1 Warning: Label 17262 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4580:5: 17260 do 17261 j=1,ni 2592 1 Warning: Label 17260 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4588:5: 17231 continue 2596 1 Warning: Label 17231 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4812:5: 11790 continue 2694 1 Warning: Label 11790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4844:5: 17732 continue 2713 1 Warning: Label 17732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4838:5: 17730 do 17731 j=1,ni 2710 1 Warning: Label 17730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4849:5: 17722 continue 2717 1 Warning: Label 17722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4836:5: 17720 do 17721 lam=1,nlam 2709 1 Warning: Label 17720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4883:5: 17792 continue 2736 1 Warning: Label 17792 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4877:5: 17790 do 17791 k=1,nin(lam) 2733 1 Warning: Label 17790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4888:5: 17782 continue 2740 1 Warning: Label 17782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4875:5: 17780 do 17781 lam=1,nlam 2732 1 Warning: Label 17780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4527:25: *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: *,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: 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: real e(no),u(nk),s 2321 1 Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable] newGLMnet.f90:3642:19: *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: *rr) 1 Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument] newGLMnet.f90:1150:9: *err) 1 Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument] newGLMnet.f90:2086:0: if(jerr.ne.0) return 1413 Warning: control reaches end of non-void function [-Wreturn-type] newGLMnet.f90:4640:0: al=alf*al0 2613 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4535:0: integer, dimension (:), allocatable :: mm,ixx Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4535:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4578:0: t=g 2591 Warning: ‘t.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4534:0: real, dimension (:), allocatable :: qy,t,w,wr,v,a,as,xm,ga Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4534:0: Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4254:0: al=alf*al0 2431 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4165:0: integer, dimension (:), allocatable :: mm,ixx Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4165:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4164:0: real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4164:0: Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3750:0: al=alf*al0 2193 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3820:0: wr=wr-del*w*x(:,j) 2221 Warning: ‘wr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3649:0: integer, dimension (:), allocatable :: jp,kp,mm,ixx Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3647:0: real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3647:0: Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3695:0: f=g-dot_product(q,g) 2175 Warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3700:0: e=q 2177 Warning: ‘e.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3270:0: al=alf*al0 1961 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3110:0: real, dimension (:), allocatable :: sxp,sxpl Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3113:0: integer, dimension (:), allocatable :: mm,is,iy Warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3111:0: real, dimension (:), allocatable :: sc,xm,v,r,ga Warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3113:0: integer, dimension (:), allocatable :: mm,is,iy Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3236:0: v=q(:,ic)/sxp 1946 Warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3237:0: r=w*(y(:,ic)-v) 1946 Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3109:0: real, dimension (:,:), allocatable :: q Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3492:0: v=w*v*(1.0-v) 2065 Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3109:0: real, dimension (:,:), allocatable :: q Warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: real, dimension (:,:), allocatable :: b,bs,xv Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3112:0: Warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2883:0: al=alf*al0 1779 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2811:0: r=w*(y-q) 1748 Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2809:0: q=1.0/(1.0+exp(-b(0)-g)) 1748 Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2759:0: integer, dimension (:), allocatable :: mm,ixx Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2759:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2758:0: real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2758:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2258:0: al=alf*al0 1491 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2114:0: real, dimension (:), allocatable :: di,v,r,ga Warning: ‘di.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2192:0: sxpl=w*log(sxp) 1470 Warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2113:0: real, dimension (:), allocatable :: sxp,sxpl Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2116:0: integer, dimension (:), allocatable :: mm,is,ixx Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2232:0: r=w*(y(:,ic)-q(:,ic)/sxp) 1482 Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2112:0: real, dimension (:,:), allocatable :: q Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2112:0: Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2112:0: Warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: real, dimension (:,:), allocatable :: b,bs,xv Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2115:0: Warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1889:0: al=alf*al0 1320 Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1830:0: r=w*(y-q) 1298 Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1780:0: integer, dimension (:), allocatable :: mm,ixx Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1780:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1779:0: real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1779:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1428:0: integer, dimension (:), allocatable :: mm,iy Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1427:0: real, dimension (:), allocatable :: a,g Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1357:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1191:0: real, dimension (:), allocatable :: a,da Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1276:0: if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 1024 Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1276:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1111:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:881:0: integer, dimension (:), allocatable :: mm,ix Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:880:0: real, dimension (:), allocatable :: a,g Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:802:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:636:0: real, dimension (:), allocatable :: a,da Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:721:0: if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 729 Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:721:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:551:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1695:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:1694:0: real, dimension (:), allocatable :: xm,xs,ww,vq Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2673:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:2672:0: real, dimension (:), allocatable :: xm,xs,ww,vq Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:3580:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4079:0: dq=d*q 2346 Warning: ‘dq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4105:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] newGLMnet.f90:4477:0: integer, dimension (:), allocatable :: ju Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] clang -mmacosx-version-min=10.13 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o iClusterPlus.so iClusterBayes.o iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin18/8.2.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin18/8.2.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation installing to /Library/Frameworks/R.framework/Versions/4.1/Resources/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 ‘iClusterPlus.Rnw’ using ‘UTF-8’ ** 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)
iClusterPlus.Rcheck/tests/runTests.Rout
R version 4.1.1 (2021-08-10) -- "Kick Things" Copyright (C) 2021 The R Foundation for Statistical Computing Platform: x86_64-apple-darwin17.0 (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > BiocGenerics:::testPackage("iClusterPlus") RUNIT TEST PROTOCOL -- Thu Oct 14 20:08:47 2021 *********************************************** Number of test functions: 0 Number of errors: 0 Number of failures: 0 1 Test Suite : iClusterPlus RUnit Tests - 0 test functions, 0 errors, 0 failures Number of test functions: 0 Number of errors: 0 Number of failures: 0 > > > proc.time() user system elapsed 83.851 0.372 84.300
iClusterPlus.Rcheck/iClusterPlus-Ex.timings
name | user | system | elapsed | |
CNregions | 0.000 | 0.001 | 0.001 | |
compute.pod | 0.001 | 0.000 | 0.001 | |
iCluster | 5.119 | 0.196 | 5.328 | |
iCluster2 | 0.491 | 0.018 | 0.511 | |
iClusterBayes | 0 | 0 | 0 | |
iClusterPlus | 0.001 | 0.000 | 0.001 | |
plotHMBayes | 0.001 | 0.000 | 0.001 | |
plotHeatmap | 0.000 | 0.001 | 0.000 | |
plotRI | 0.000 | 0.001 | 0.000 | |
plotiCluster | 0.000 | 0.001 | 0.000 | |
tune.iClusterBayes | 0.000 | 0.001 | 0.000 | |
tune.iClusterPlus | 0.000 | 0.000 | 0.001 | |
utility | 0.000 | 0.000 | 0.001 | |